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The enclosed material is a compilation, of computer programs 
developed during the period May, 1968 to September, 1970. These 
programs were developed by teachers and students in the high schools 
which participated with us, and by the Project staff. 

All of the enclosed programs have been tested on a Digital 
Equipment Corporation TSS-8 time-shared computer during the summer 
of 1970. To the best of our ability, we have assured ourselves 
that the programs actually run. It should be pointed out, however, 
that we were not able to make an exhaustive exploration of the pro- 
grams. There may be undiscovered bugs (if there aren’t, it may be 
the first time in the history of computing) . We would appreciate 
hearing of any which emerge in the future. 

These programs run in the version of BASIC which existed on 
the TSS-8 in August, 1970, and should run on most other versions of 
BASIC. The major potential problem on other machines as the output 
format (DEC uses 14 columns per print zone, while some other manu- 
facturers use 15; we used the TAB function, which doesn’t exist in 
all BASIC compiles) . It may be necessary to make some minor 
changes in progi’ams to adjust this format. Another possible 
problem is in the use of the RANDOMIZE command in some programs 
to start the random-number generator at a random point. If this 
command is not available, some other means should be devised for 
randomizing the start. 

It is our sincere hope that these programs and their sup- 
pc»rting documentation will be helpful to educators who are explor- 
ing the uses of computers in education. 

We are anxious to hear of any bugs, errors, or improvements 
in these programs, and are especially anxious to hear of any novel 
ways of using them. 



Ludwig Braun 
Marian Visich, Jr. 
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DISCIPLINE SOCIAL STUDIES 




SUB J EC T DISTINCTION BETWEEN BA L - 
ANCE OF TRADE AND BALANCE OF 

PAYMENTS 

PROGRAM NAME BALANC 



DESCRIPTION: 

This program demonstrates the distinction between **balance of trade** 
and "balance of payments." Also shown are the components that make up the 
** balance of payments'* account, and their individual impacts. 



OBJECTIVES: 



A. To emphasize the important distinction between**Balance of Trade,** and 
** Balance of Payments.'* 

B. To demonstrate the impact of any specific foreign expenditure on our 
** Balance of Payments.** 



PRELIMINARY PREPARATION: 



A. 



Student must obtain data for components of balance of payments for a given 
year and country. 



B. Discussion of the concepts " balance of traded* and *‘ balance of payments**, 
would be helpful but are not necessary. 



DISCUSSION ; 

A. Student level ~ average 

B. Curriculum location - advanced economics: Unit on U. S. Economy in the 

world. 

C. This program may be used either as a group exercise, or for individual study. 
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bUCiAL bTUUiEb 
BALANC 



THERE’S A distinction BETWEEN TRADE BALANCE AND 
BALANCE OF PAYMEN1S> 

TRADE BALANCE = EXPORTS" IMPORTS. 

BALANCE OF PAYMENTS^ ALL OVERSEAS EXCHANGES+ 

ALL OVERSEAS EXPENDITURES. 

WHEN INFORMATION IS REQUESTED^ INPUT VALUES IN 
MILLIONS OF DOLLARS (E.G. 6 = 6 MILLION DOLLARS) 

A* 

INPUT A FIGURE FIRST FOR ALL MILITARY AID* THEN 
FOR ALL OTHER AID TO OTHER NATIONS. 

? 12*13 

B. 

INPUT A FIGURE FIRST FOR EXPORTS* THEN FOR IMPORTS. 
? 256*23 



C. <■ 

INPUT A FIGURE FIRST FOR FOREIGNERS TRAVELING IN 
YOUR COUNTRY* THfiN FOB YOUR COUNTRYMEN TRAVELING 
ABROAD. 

? 254*6-56 



D. 

INPUT A FIGURE FIRST FOR INCOME FROM FOREIGN INVEST- 
MENTS* THEN FOR FOREIGN INVESTMENT ITSELF. 

7 259*21 




A. FOREIGN AID - 25 

B. BALANCE OF TRADE « 233 

C. TRAVEL BALANCE - 198 

D. INVESTMENT BALANCE - 238 



BALANCE OF PAYMENTS - 644 



CREMEMBER* IF A MINUS FIGURE APPEARS ABOVE*YOUR 
COUNTRY HAS A DEFICIT IN ITS BALANCE OF PAYMENTS) 

HOPE YOU UNDERSTAND THE DISTINCTION BETWEEN THE 
BALANCE OF TRADE AND THE BALANCE OF PAYMENTS 
BETTER NOW. 



READY 
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SOCIAL STUDIES 
BAIANC 



IKEMPROGRAM BY J.V. SWARTZ/ HALF HOLLOW HILLS/ 7/68 
5PR1NT"THEHE’S A DISTINCTION BETWEEN TRADE BALANCE AND” 
7PRINT”BALANCE OK PAYMENTS." 



SPRINT 

10PRINT"TRADE BALANCE = EXPORTS- IMPORTS. " 

15PRINT 

aOPRINT"BALANCE OF PAYMENTS® ALL OVERSEAS 3XCHANGES+" 
22PRINT"ALL OVERSEAS EXPENDITURES." 

23 PRINT 

25 PRINT "WHEN INFORMATION IS REQUESTED/ INPUT VALUES IN" 

27 PRINT "MILLIONS OF DOLLARS <E.G. 6 ® 6 MILLION DOLLARS)" 

30PRINT 

33 PRINT "A." 

35PRINT"INPUT A FIGURE FIRST FOR ALL MILITARY AID/ THEN" 
3oPRlNT"FOR ALL OTHER AID TO OTHER NATIONS." 

A5 INPUT F1/F2 
50LETF=FI+F2 
52PRINT 
54 PRINT "B." 

55PRINT"INPUT A FIGURE FIRST FOR EXPORTS/ THEN FOR IMPORTS." 
65INPUT S1/S2 



70LETS“S1-S2 

72PRINT 

74 PRINT "C." 

75PRINT"INPUT A FIGURE FIRST FOR FOREIGNERS 1'RAVELING IN" 
76PRINT"Y0UR COUNTRY/ THEN FOR YOUR COUNTRYMEN TRAVELING" 
77PRINT"ABROAD." 

85INPUTT1/T2 
90LET T=T1-T2 
92PRINT 
94 PRINT "D." 

95PRINT"INPUT A FIGURE FIRST FOR INCOME FROM FOREIGN INVEST-" 
96PRINT"MENTS/ THEN FOR FOREIGN INVESTMENT ITSELF." 

105INPUT 11/12 
llOLET I=Il-l2 
115LETP®-F+S+T+I 
U7PRINT 
11 SPRINT 

120 PRINT "A. FOREIGN AID ="/F 
125PRINT 
130 PRINT 
140PRINT 
145 PRINT 
150PRINT 
155 PRINT 
158PRINT 

160 PRINT " — — «/" 

162PRINT 

170 PRINT "BALANCE OF PAYMENTS «"/P 
171PRINT 

172PRINT"<F£MEMBER/ IF A MINUS 
173PRINT"C0UNTRY HAS A DEFICIT 



*B. BAlJUiCE OF TRADE «"/ 
•C. TRAVEL BALANCE -"/T 



*D. Investment balance 



FIGURE 
IN ITS 



APPEARS 

BALANCE 



ABOVE/YOUR" 
OF PAYMENTS)' 



181PRINT 

185PRINT"H0PE YOU UNDERSTAND THE DISTINCTION BETWEEN THE" 
186PR1NT*'BALANCE OF TRADE AND THE BALANCE OF PAYMENTS" 
187PR1NT"BETTER NOW." 

190END 
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DISCIPLINE MATHEMATICS- SOCIAL SCIENCE 



SUBJEC T FINANCIAL PROBLEMS 

PROGRAM NA>fE BANK 



DESCRIPTION : 

Tliis program solves financial problems concerning installment buying, 
long-term loans, and savings accounts. The program gives you a choice of 
these three types of problems, and asks for the information needed to do said 
problems . 



OBJECTIVES ; 

A. This program aids students in learning the terms used in certain financial 
problems . 

B, Student will hopefully be motivated to learn the mathematical logic behind 
the solution of these problems. 



PRELBfINARY PREPARATION : 

A. Student - A review of decimals and fractions would be helpful. 

B. Materials - A terminal, and a means by which to display the output to 
an entire class (e.g. overhead projector, closed circuit TV, etc.) 



DISCUSSION ; 

A type of problem may be demonstrated through the use of the computer, 
then the mathematical logic behind the solution of the problem may be developed 
through the use of a flow chart similar to the one that follows. 

Terminology may be taught when the computer asks for input (see sample 

run). 

Since the execution time of one run is extremely short, many more 
problems may be demonstrated. Depending upon the ability of the class or 
student, a variety of relationships may be discovered. 
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SOCIAL STUDIES 
BANK 

FINANCIAL PROBLEMS 

THIS PROGRAM SOLVES THREE TYPES OF PROBLEMSI 

U) INTEREST ON INSTALLMENT BUYING 
<a> PAYMENTS ON LONG TERM LOAN ' 

(3) BALANCE OF A SAVINGS ACCOUNT 

fcHICH PROBLEM WOULD YOU LIKE TO WORK WITH <TYPE is 2 OR 3)7 I 

***** 

THIS SECTION WILL DETERMINE THE ACTUAL INTEREST YOU PAY 
WHEN YOU PURCHASE SOMETHING ON CREDIT. 

WAT IS THE CASH PRICE OF THE ARTICLE (S)7 88.99 
DOWN PAYMENT <$>? 10 ' 

NUMBER OF PAYMENTS EXCLUDING THE DOWN PAYMENT? 18 
NUMBEK OF PAYMENTS PER MONTH? t 
AMOUNT PER PAYMENT (S)? A.8& 



THE RATE OF INTEREST CHARGED WAS 5.69 PERCENT. 



***** 

WOULD YOU LIKE TO RUN THE PROGRAM AGAIN Cl*tYES« 0«N0)7 t 
WHICH problem would YOU LIKE TO WORK WITH (TYPE is 2'OR 3>7 2 

*****, 

1HIS SECTION WILL DETERMINE PAYMENTS FOR A LONG TERM LOAN* 

WAT IS THE AMOUNT BORROWED (S)7 3000 
INTEREST CHARGED (t>7 8 

INTEAUA*. BPTUCPm paVMt?M'yc 1 

TERM OF THE LOAN (YEARS)? 2 " ' 



DO YOU WISH TO SEE THE TOTALS ONLY - INSTEAD OF THE ENTIRE 
TABLE - (l-YES# O-NO)? 0 * • . 



PERIOD 


OUTSTANDING 
PRINCIPAL AT 
BEGINNING 
OF PERIOD 


INTEREST DUE AT 
END OF PERIOD 


PRlNCtP^ 
REPAID i 
END OF J 


1 


3000 


20 


115.68 


2 


2884.32 


19.23 


116.45 


3 


2767*87 


18.45 


117*23 


4 


2650.64 


17*67 


118.01 


5 


2532.63 


16.88 


118.8' 


6 


2413.63 


16.09 


119.59 


7 


2294.24 


15.29 


120.39 


8 


2173*85 


14.49 


121*19 


9 


2052.66 


13.68 


122 


10 


1930.66 


12.87 


122.81 


11 


1807*85 


12*05 


123.63 


12 


1664.82 


11.23 


124.45 


13 


1559.77 


10.4 


125.28 


14 


1434.49 


9.56 


126.12 


15 


1308*37 


8*72 


126^96 


16 


1181.41 


7*88 


127*3 


17 


1053.61 


7*02 


128.66 


18 


924.95 


6*17 


129.51 


19 


795.44 


5.3 


130*38 


20 


665.06 


4.43 


131.25 


21 


533.81 


3.56 


132.12 


22 


401.69 


2.68 


133 


23 


268.69 


1.79 


133.89 


24 


134.8 


.9 


134.78 


TOTALS 




256*34 


3000 



YOUR MONTHLY PAYMENT IS S 13S.68 AND TOTALS S 3856.34 
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Social Studies 
BANK 



WOULD YOU LIKE TO RUN THE PROGRAM AGAIN <t-YE5« 0*N0>7 1 
WHICH PROdLEM WOULD YOU LIKE TO WORK WITH (TYPE X, 2'OR 3^7 3 



THIS SECTION CALCULATES THE BALANCE OP A SAVINGS ACCOUNT 
IN WH]^CH DEPOSITS ARE MADE REGULARLY. 

WHAT IS THE AMOUNT DEPOSITED PER INTEREST PERIOD <S)7 lOOOO 
HOW OFTEN’ IS THE INTEREST COMPOUNDED (WONTHS)7 3 
WHAT IS THE RATE OF INTEREST PAID (Z)7 S' 

FOR HOW LONG WILL YOU DEPOSIT MONEY <YEARS)7 5 



THE BALANCE OF YOUR ACCOUNT AFTER 5 YEARS WILL BE S 202500 



WOULD YOU LIKE TO RUN THE PROGRAM AGAIN U-YES# 0-N0)7 0 
READY 
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Social Studies 
BANK 



100 REM FINANCIAL PROBLEMS A- WEBB 12/67 

10 1 REM REVISED 8/25/70 CD. PESSEL) 

110 PRINT TAB <20)1 "FINANCIAL PROBLEMS" 

115 REM REVISED BY W. TEPPER> WYANDANCH H.S. 7/10/69 
120 PRINT 

130 PRINT^THIS PROGRAM SOLVES THREE TYPES OF PROBLEMSI" 

132 PRINT 

134 PRINT" U> INTEREST ON INSTALLMENT BUYING" 

136 PRINT" CB) PAYMENTS ON LONG TERM LOAN" 

136 PRINT" <3) BALANCE OF A SAVINGS ACCOUNT" 

140 PRINT 

142 PH1NT"VH1CH PROBLEM WOULD YOU LIKE TO WORK WITH (TYPE 
144 INPUT or 

146 PRINT 

147 PHINT"^*^**" 

148 PRINT 

ISO IF Ql>2 THEN 820 
155 IF Q1>1 THEN 260 
160 GO TO 590 

260PRINT "THIS SECTION WILL DETERMINE PAYMENTS FOR A LONG 
270 PRINT 

280 PRINT" WHAT IS THE AMOUNT BORROWED <S)"i 
231 INPUT A 

235 PRINT" INTEREST CHARGED (X)"i 

286 INPUT 1 

290 PRINT"" INTERVAL BETWEEN PAYMENTS (MONTHS)"^ 

291 INPUT P ' 

295 PRINT" TERM OF THE LOAN <YEARS>"J 

296 INPUT V - . 

2/10 PRINT 

360 PRINT"D0 YOU WISH TO SEE THE TOTALS ONLY - INSTEAD OF 

361 PR1NT"TABLE - ( 1 -YES* 0-N0>"J 

362 INPUT P5 
370 PRINT 

o>6 iK P:>>0 THEN 430 

380 PRINT" outstanding" 

390 PRINT" principal AT 

ADO PRt NT" BEGINNING 

410 PR1NT"PERI0D OF PERIOD 

420 PRINT 

430 LET Z«(Y4i12)/P 
440 LET K-(14>CP/12>>/100 

445 LET E-A*K/(l-i;^n+K>tZ> 

446 LET E-1NT<£«100^«5>/100 
450 LET C-A 

460 LET F-0 

461 LET Di-0 
470 LET T1»0 
480 LET Tl«Tl+l 
490 IF T1>Z THEN 554 
500 LET B«T1 
510 LET C-C-F, 

520 LET D«C«K 
522 LET F«E-D 

525 LET C«1NT(C4iI 004>*5)/100 
530 LET D-lNT(D;kl004>*5)/100 
535 LET F*INT(F«100'»>.5>/I00 
541 LET D|iDl+D 
5/18 IF P5>0 THEN 480 

550 PRINT BiTAB(U>iCiTAB(29>iDiTAB<48>iF 



INTEREST DUE AT 
END OF PERIOD 
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I* 2 OR 3)"i 



TiaiM LOAN." 



THE ENTIRE** 



PRINCIPAL" 
REPAID AT" 

END OF PERIOD" 



Social Studies 

5sa 

554 
55ft 
556 

558 

559 

560 

561 

564 

565 

566 

567 

568 

569 

570 
590 
600 
610 
620 
621 

630 

631 

640 

641 

650 

651 
660 
661 
690 
720 
730 
740 
750 
760 
770 
775 

780PR1NT **THE RATE OF INTEREST CHARGED UAS**T** PERCENT.” 

790 GO TO 1060 

PPTMTM-fuTC cj^i^'rTAM Till V Z7 SAVXi;-;C^ 

830 PRINT”IN' WHICH DEPOSITS ARE MADE REGULARLY.” 

840 PRINT 

860 PRINT”VHAT IS THE AMOUNT DEPOSITED PER INTEREST PERIOD <S>”; 

861 INPUT A ‘ 

870 PR1NT”H0V OFTEN IS THE INTEREST COMPOUNDED (MONTHS)”! 

871 INPUT B ■ * 

880 PR1NT”WHAT IS THE RATE OF INTEREST PAID (X)”! 

881 INPUT C‘ ‘ 

S90 PRINT'TOR KGV LONG WILL YOU DEPOSIT MONEY (YEARS)**! 

891 INPUTD 
950 Let F«0 

960 LET E»CC/100)/(12/B> 

970 LET G»<12/B)*D * 

980 LET Tl»0 * ‘ 

990 LET Tl-Tl+1 

1000 IF T1«G4-1 THEN 1030 

1010 Let fxCe^'Ai-^ca+F) 

1020 GO TO 990 ‘ - 

1030 PRINT 
1040 PRINT 

1045 LET F»INTC100*F4>.5)/100 . 

1050 print”The Balance of your account after ”d”years will be $”f 

1060 PRINT' . . .. 

10 70 PRINT 

1080 PRINT 

1051 PRINT”*****” 

1082 PRINT' 

1084 PRINT”V0ULL YOU LIKE TO RUN THE PROGRAM AGAIN (1-YES> O-NO)”! 

1086 INPUT 04 

1090 IF Q4>0 THEN 142 

Uoo End 



AND TOTALS S”ES 



GO TO 480 • 

IF P5<1 THEN 561 
PRINT 

LET D1»1NT(D1*100*.5)/100 
PRINT”TOTAL INTEREST PAID - S”D1 
PRINT"TOTAOL PRINCIPAL REPAID - S”A 
GO TO 565 
PRINT” 

PRINT”T0TAL5”;TAB(29)!D1!TAB(48)!A 
LET E5*INT( (Dl*A)*100*.3)/100 
PRINT 

LET E6"E5/((Y*1B>/P) 

LET E6elNT( 100*E6-^«S>/100 
PRINT”YOUR MONTHLY PAYMENT IS S”E6” 

GO TO 1060 

PRINT”TH1S SECTION WILL DETERMINE THE ACTUAL INTEREST YOU PAY” 
PR1NT”VHEN YOU PURCHASE SOMETHING ON CREDIT.”’ ' “ 

PRINT 

PRINT”WHAT IS THE CASH PRICE OF THE ARTICLE <S)”! 

INPUT C ‘ ■ ■ " * 

PRINT” DOWNPAYMENT <$)”! 

IMPUT'D 
PRINT” 

INPUT'N 
PRINT” 

INPUT S 
PRINT” 

INPUT R 
PRINT 

LET B»R*N*D 
LET I»B-C 
LET M«*N/(S*12> 

LET T»1*100/(8*M) 

PRINT 

PRINT 

LET T»INT( 100*T*«5)/100 



NUMBER OF PAYMENTS EXCLUDING THE DOWN PAYMENT”! 
NUMBER OF PAYMENTS PER MONTH”! 

AMOUNT PER PAYMENT <$)”! 
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SOCIAL STUDIES 



DISCIPLINE 



SUB J EC T CIRCULAR FLOW BETWEEN 
BUSINESS AND CONSUMER 



PROGRAM NAME CIRFLW 



DESCRIPTION; 

Simulation of the circular flow of goods, services, and money, 
between business and the consumer in a free enterprise economy 
without government control. 



OBJECTIVES : 

A. To explore the effect of personal consumption upon business* 
demand for productive services from the individual, and upon 
personal Income. 

B. To demor^^trate that widespread uninvested savings can cause a 
general drop in income. 

C. To demonstrate how credit buying can raise personal income, 
in general. 




PRELIMINARY PREPARATION: 

A. Student 

1. Terms to define: 

a. propensity to Consume 

b. savings 

c. credit 

d. circular flow of goods, services, and money 



2. Concepts for explanation or discussion: 




o 

ERJC 
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CIRFLW 



DISCUSSION; 

A* Operational Suggestions 

!• Student level -average to above average ability 

2. Placement in curriculum- Unit; Economic growth and stability 

3. Group size- may be used individually, with small groups, or as 
a teacher demonstration. 

B# Follow-up 

Suggested classroom activities; 

1. Use the circular flow chart to illustrate one or more of the 
program ” run-offs?* • 

2. Discuss the lack of aggregate demand as a cause for recession; 
and the rise in aggregate demand as a cause for growth or 
inflation. 
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THE FOLLOWING WILL SIMULATE THE EFFECT ON THE 
CIRCULAR FLOW OF GOODS « SERVICES AND MONEY WHEN 
ALL THE INDIVIDUALS IN THE ECONOMY SPEND ALL THEIR 
INCOME. IF THE AVERAGE INCOME IS S2.500 AND 
EVERY INDIVIDUAL SPENDS 100 PERCENT OF IT. 

EACH INCOME WILL BE IN EQUILIBRIUM — THEY WILL 
EARN BACK FROM BUSINESS $2500 
THE FOLLOWING WILL BE A COMPUTATION OF THE 
VALUES IN THE CIRCULAR FLOW 

AVERAGE INCOME- 2500 



PROPENSITY TO CONSUME IS 
100 PERCENT 

INDIVIDUAL'S PAYMENTS FOR 
GOODS AND SERVICES- 2500 

THE VALUE OF GOODS 
AND SERVICES- 2500 



THE PERCENT OF PRODUCTIVE 
DEVICES BUSINESS WANTS 
IS 100 PERCENT. 



the return income 

TO INDIVIOUAL-2500. 

THE ABOVE REPRESENTS THE AVERAGE OF ALL INDIVIDUAL 
INCOMES IN THE ECONOMY. SINCE ALL INDIVIDUALS CONSUMED 
100 PERCENT OF THEIR INCOME. THEIR RETURN INCOMEIS 
100 PERCENT OF THEIR PREVIOUS INCOME. THIS HAPPENS 
BECAUSE BUSINESS NEEDS 100 PERCENT OF THE PREVIOUS 
PRODUCTIVE SERVICES TO MEET THE DEMAND. 

THE RETURN INCOME TO THE INDIVIDUAL FROM 
BUSINESS DEPENDS TO A LARGE EXTENT ON HOW 
MUCH ALL INDIVIDUALS SPEND( THEIR PROPENSITY TO 
CONSUME). COMMON SENSE TELLS US THAT IF AN IN- 
DIVIDUAL SAVES PART OF HIS INCOME AND INVESTS IT 
IN A BANK. HE WILL RAISE HIS INCOME BY MEANS OF 
THE INTEREST ON HIS SAVINGS. BUT IF ALL, OR MANY 
OF THE INDIVIDUAL CONSUMERS IN THE ECONOMY CUT 
their consumption, then the OVERALL RETURN INCOME 
TO THOSE INDIVIDUALS WILL PROBABLY DROP. 

BY CHANGING THE PERCENTAGE OF YOUR PROPENSITY 
TO CONSIME YOU CAN CHANGE YOUR INCOME. 

A PROPENSITY TO CONSUME OF 100 PERCENT WILL. 

IN THIS SIMULATION. GIVE YOU A RETURN INCOME 
EQUAL TO YOUR ORIGINAL INCOME. ANY VALUE 
MORE OR LESS THAN 100 PERCENT WILL CHANGE 
YOUR RETURN INCOME. 

TYPE IN A VALUE FOR THE PROPENSITY TO CONSUME. 

A PERCENTAGE MORE OR LESS TtiAN 100 PERCENT. 

PUT IT IN IN DECIMAL FORM (E.G> .7S«7S PERCENT) 
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UHAT IS THE VALUE? .75 

BECAUSE YOUR PROPENSITY TO CONSUME IS LESS THAN 
YOUR INCOME. YOU ARE SAVING MONEY. WE WILL ASSUME 
THAT YOU DIDN'T PUT IT IN A BANK BUT 
RATHER STUFFED IT UNDER YOUR MATTRESS. SO 
YOU WON’T HhISE YOUR INCOME WITH INTEREST 

INDIVIDUAL'S PAYMENTS FOR 
GOODS AND SERVICES- 1875 

VALUE OF GOODS AND SERVICES 
FP.OM BUSINESS- 1875 

PERCENT OF PRODUCTIVE 
SERVICES IN DEMAND- >75 

RETURN INCOME TO IN- 
DIVIDUAL- 1875 

YOUR RETURN INCOME 
HAS DROPPED THE FOLLOWING 
PERCENTAGE POINTS FROM 
100 PERCENT- 25 

IF YOU WISH TO PUT IN ANOTHER PERCENTAGE VALUE 
FOR THE PROPENSITY TO CONSUME. TYPE 0 
IF YOU WISH TO STOP THE PROGRAM. TYPE 1 
7 1 



READY 
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100H£M THIS PROGRAM BY JAMESEDER^ NORTHPORT HS« 8/68 
105 REM REVISED BY C.LOSIK 8-27-70 

llOREM IT'S DESIGNED TO DEMONSTRATE THE CIRCULAR FLOW OF 
120REM GOODS AND SERVICES IN THE U.S« ECONOMY* 

130REM THE FOLLOWING ARE DEFINITIONS OF THE SYMBOLS USEDI 
lAOREM PER CAPITA INCOME IS I « 10 ;PROPENSITY TO CONSUME IS C«CO; 
150REM PAYMENT FOR GOODS + SERVICES IS P^POIVALUE OF GOODS IS 
160REM V*VO;PERCENT OF PRODUCTIVE SERVICES IS S«SO; 

170KEM RETURN INCOME IS R«RO 

180PRINT"THE FOLLOWING WILL SIMULATE THE EFFECT ON THE" 
190PRINT"CIRCULAR FLOW OF GOODS« SERVICES AND MONEY WHEN" 
200PRINT"ALL THE INDIVIDUALS IN THE ECONOMY SPEND ALL THEIR" 
210PRINT"INC0ME. IF THE AVERAGE INCOME IS $2«500 AND" 
220PRINT"EVERY INDIVIDUAL SPENDS 100 PERCENT OF IT«" 
230PRINT"EACH INCOME WILL BE IN EQUILIBRIUM--THEY WILL" 
240PRINT"EARN BACK FROM BUSINESS $2500" 

250PRINT"THE FOLLOWING WILL BE A COMPUTATION OF THE" 

260PRI NT" VALUES IN THE CIRCULAR FLOW" 

270READI«C«I0 
280DATA 2500 >1 >2500 
290PRINT 

300PRINT"AVERAGE INCOME-"! I 

310PRINT 

320PRINT 

330PRINT"PR0PENSITY TO CONSUME IS" 

3A0PRINT"100 PERCENT" 

'/50LET P=C*I 
360PRINT 

370PRINT"INDIVIDUAL’S PAYMENTS FOR" 

380PRINT"G00DS AND SERVICES-"1P 

390LETV=P 

400PRINT 

A10PRINT"THE VALUE OF GOODS" 

420PRINT"AND SERVICES-"! V 

A30PRINT 

A40PRINT 

A50PRINT"THE PERCENT OF PRODUCTIVE" 

A60FRINT"SERVICES BUSINESS WANTS" 

A70PRINT"IS 100 PERCENT." 

A80PRINT 

A90PRINT 

500PRINT"THE RETURN INCOME" 

510PR1NT"T0 INDIVIDUAL-2500." 

520PR1NT 

530PR1NT"THE ABOVE REPRESENTS THE AVERAGE OF ALL INDIVIDUAL" 
5A0PRI NT" INCOMES IN THE ECONOMY. SINCE ALL INDIVIDUALS CONSUMED" 
550PRINT"100 PERCENT OF THEIR INCOME^ THEIR RETURN INCOMEIS" 
560PRINT"I00 PERCENT OF THEIR PREVIOUS INCOME. THIS HAPPENS" 
570PRINT"BECAUSE BUSINESS NEEDS 100 PERCENT OF THE PREVIOUS" 
580PRINT"PR0DUCTIVE SERVICES TO MEET THE DEMAND." 

590PRINT 

600PRINT"THE RETURN INCOME TO THE INDIVIDUAL FROM" 
6I0PRINT"BUSINESS DEPENDS TO A LARGE EXTENT ON HOW" 

620PRINT"MUCH ALL INDIVIDUALS SPENDCTHEIR PROPENSITY TO" 
630PRINT"C0NSUME) . COMMON SENSE TELLS US THAT IF AN IN-" 
6A0PRINT"DIVIDUAL SAVES PART OF HIS INCOME AND INVESTS IT" 
650PRINT"IN A BANK> HE WILL RAISE HIS INCOME BY MEANS OF" 
660PRINT"THE INTEREST ON HIS SAVINGS. BUT IF ALL OR MANY" 
670PRINT"0F THE INDIVIDUAL CONSUMERS IN THE ECONOMY CUT" 
680PRINT"THEIR CONSUMPTION> THEN THE OVERALL RETURN INCOME" 
690PRINT"T0 THOSE INDIVIDUALS WILL PROBABLY DROP." 

700PRINT"BY CHANGING THE PERCENTAGE OF YOUR PROPENSITY " 
710PRINT"T0 CONSUME YOU CAN CHANGE YOUR INCOME." 

720PRINT 

730PRINT"A PROPENSITY TO CONSUME OF 100 PERCENT WILL#" 

7A0PRlNT"IN THIS SIMULATION# GIVE YOU A RETURN INCOME" 
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750PRINT"E£IUAL TO YOUR ORIGINAL INCOME* ANY VALUE” 
760PRINT“M0R£ OR LESS THAN 100 PERCENT WILL CHANGE" 
770PRINT"Y0UR RETURN INCOME." 

780PRINT 

790LETN=1 

800 PRINT "TYPE IN A VALUE FOR THE PROPENSITY TO CONSUME^" 

810 PRINT "A PERCENTAGE MORE OR LESS THAN 100 PERCENT." 

820 PRINT "PUT IT IN IN DECIMAL FORM <E.G* *75-75 PERCENT)" 

830 PRINT 

840 PRINT "WHAT IS THE VALUE") 

850INPUTC0 
860IFC0<1 THEN 960 
870IFC0>1THEN 1030 
890IFN-3 THEN930 
900PRINT"WE'LL GO BACK" 

910LETN-N+1 
920 GOTO 800 

930PRINT"EITHER YOU WERE CARELESS OR YOU WERE BEING " 
940PRINT"UISE* IN EITHER CASE« SUFFER THE CONSEQUENCES." 

950 STOP 

960PRINT"BECAUSE YOUR PROPENSITY TO CONSUME IS LESS THAN" 
970PRINT"Y0UR INCOME. YOU ARE SAVING MONEY. WE WILL ASSUME" 
980PR?,NT"THAT YOU DIDN'T PUT IT IN A BANK BUT" 

990PRINT"RATHEH STUFFED IT UNDER YOUR MATTRESS. SO" 
1000PRINT"Y0U WON'T RAISE YOUR INCOME WITH INTEREST" 
1010G0T01070 
1020PRINT 

1030PRINT"BECAUSE YOUR PROPENSITY TO CONSUME IS GREATER" 
1040PRINT"THAN YOUR INCOME. YOU ARE BUYING ON CREDIT." 
1050PR1NT"THAT MEANS YOU ARE BUYING NOW WITH WHAT YOU EXPECT ” 
1060PRINT"T0 EARN IN THE FUTURE." 

10 70LETP0sl0*C0 
lOSOPRINT 

t090PRINT"INDIVIDUAL'S PAYMENTS FOR" 

1100PRINT"G00DS AND SERVICES-")PO 

lllOPRINT 

11 20 LET VO-PO 

1130PRI NT" VALUE OF GOODS AND SERVICES" 

1140PRINT"FR0M BUSINESS-";VO 

11S0LETS0=C0 

1160PRINT 

1170PRINT"PERCENT OF PRODUCTIVE" 

1180PR1NT" SERVICES IN DEMAND-")SO 

1190LET RO-IO*SO 

1200PRINT 

1210PR1NT”RETURN INCOME TO IN-" 

1220PR1NT"DI VI DUAL-" S RO 
1230PRINT 

1240IFRO<2500 THEN 1270 
1250 I FRO >-2500 THEN 1320 
1260PRINT 

1270 LET P2-INT(100-1004>C0''-.5) 

1280PR1NT"Y0UR RETURN INCOME" 

1290PRINT"HAS DROPPED tHE FOLLOWING" 

1300PRINT"PERCENTAGE POINTS FROM" 

1310PRINT"100 PERCENT-"1P2 

1320PRINT°'IF YOU WISH TO PUT IN ANOTHER PERCENTAGE VALUE" 
1330PRINT"F0R THE PROPENSITY TO CONSUME. TYPE 0" 

1340PRINT"IF you WISH TO STOP THE PROGRAM. TYPE 1" 

1350 INPUT V 

1355 PRINT 

1360 IF W— 0 THEN 800 

1365 IF Wol THEN 1320 

1370END 
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DISCIPLINE SOCIAL STUDIES 



SUB J ECT DEPE.ESSION/ EQUILIBRIUM 
PROGRAM NAME CONSMP 



DESCRIPTION: 



This program simulates economic depression and equilibrium 
as effects of consumption. 

4 



OBJECTIVES: 



A. Depression or recession results when consumption virops below 
the capacity to produce. 

B. Equilibrium results when consumption equals the capacity to produce. 

C. One cause for " over-production” is a time-lag in discovering a 
drop in consumption. 



PRELIMINARY PREPARATION; 



A. Student - terms to define and explain: 



1. 


Depression 


6. 


Investment 


2. 


Reces sion 


7. 


Savings 


3. 


Equilibrium 


8. 


GNP 


4. 


Under-consumption 


9. 


Productive Services 


5. 


Overproduction 







B. Materials - Introduce this program with the Circular Flow model 
oi goo3s7 services and money. (See program CIRFHv^ 



DISCUSSION : 

A. Operational Suggestions 

1. Student level - above average 

Z. Curriculum location - advanced economics unit on economic 
growth and stability. 

B. Suggested Follow-up 

Discussion topics: 

1. Consider possible causes for a drop in consumption. 

2. With advanced students, discuss the (Keynesian) concept of 
” equilibrium at less than full employment. ” 
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THIS PROGRAM SIMULATES THE EFFECTS OF CONSUMPTION ON THE 
GNP* IT PRINTS OUT THE VALUES FOR THE COMPONENTS OF THE 
CIRCULAR FLOW MODEL OF GOODS# SERVICES AND MONEY. 

ASSUME GNP IS 100 BILLION. 

TYPE IN A VALUE FOR PROPENSITY TO CONSUME. 

MAKE THE VALUE BETWEEN 0 AND .75 
? .75 

ORIGINAL GNP' 100 

PROPENSITY TO 
CONSUME- .75 

CONSUMPTION- 75 

VALUE OF GOODS 
+ SERVICES- 75 

SAVINGS- 25 

INVEST.- 25 

LABOR- .75 

RETURN GNP- 100 

EQUILIBRIUM. 



TO PUT IN ANOTHER CONSUMPTION VALUE# TYPE 0. 
TO STOP# TYPE I 
7 0 

TYPE IN A VALUE FOR PROPENSITY TO CONSUME. 
MAKE The value between 0 AND .75 
7 .80 

READ carefully; INPUT AGAIN. 

7 7-. 70 

IF STARTING #TYPE 100CGNP)iIF NOT 
STARTING#TYPE VALUE OF RETURN GNP. 

7 100 

ORIGINAL GNP- 100 

PROPENSITY TO 
CONSUME- .7 

CONSUMPTION- 70 

VALUE- 70 

SAVINGS- 30 

INVESTMENT BY PERIODS; 

1-3M0NTHS S 
4-6M0NTRS 4.9375 
7-9M0NTHS 4.875 
10-12M0NTHS 4.8125 
END OF 12TH MONTH 4.75 
TOTAL FOR YEAH 24.375 





Social Studia s 
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OVER- INVESTMENT 
LABOR! 

1-3M0NTHS- .15 
A-6M0NTHS- .1475 
7-9M0NTHS- .145 
lO-lSMONTHS- .1425 
END OF 12M0NTH- .14 
TOTAL FOR YEAR- .725 

GNP! 

1-3M0NTHS- 15 
4-6M0NTHS- 14.9875 
7-9M0NTHS- 14.975 
10-12M0NTHS- 14.9625 
END OF 12 MONTH- 14.95 
TOTAL FOR YEAR- 94.375 

RECESSION 

INVENTORY OVERPRODUCED- 23.125 

type decimal value for propensity to 

CONSUME 
7 .65 

IF STARTING *TYPE 100(GNP>;1F NOT 
STARTING^TYPE VALUE OF RETURN GNP. 

7 94.375 

ORIGINAL GNP- 100 

PROPENSITY TO 
CONSUME- .65 

CONSUMPTION- 61.34375 

VALUE- 61.34375 

SAVINGS- 33.03125 

®P- 63.21875 

TYPE DECIMAL VALUE FOR PROPENSITY TO 
CONSUME 
7 .60 

IF STARTING *TYPE 100<GNP>;iF NOT 
starting* TYPE VALUE OF RETURN GNP. 

7 63.21875 

ORIGINAL GNP- 100 

PROPENSITY TO 
CONSUME- .6 

CONSUMPTION- 37.93125 



VALUE- 37.93125 
SAVINGS- 25.2875 






OIP- 41.68125 

TYPE DECIMAL VALUE FOR PROPENSITY TO 
CONSUME 
7 .55 

IF STARTING *TYPE 100<GNP)1IF NOT 
STARTING* TYPE VALUE OF RETURN GNP. 

7 41.68125 
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ORIGINAL GNP- 100 

PROPENSITY TO 
CONSUME** .55 

CONSUMPTION" 22.92469 

VALUE" 22.92469 

SAVINGS" 18.75656 

GNP" 28.54969 

TYPE DECIMAL VALUE FOE PROPENSITY TO 
CONSUME 
7 
tC 

READY 



30 “ 
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100 REM- -PROGRAM BY JAMES EDER> NORTHPORT HS> 8/68 
llOREM — REVISED — 8/12/69 — <ROD> 

115 REM REVISED BY C.LOSIK 8-27-70 

120PRINT''THIS PROGRAM SIMULATES THE EFFECTS OF CONSUMPTION ON THE” 
130PRINT”GNP. IT PRINTS OUT THE VALUES FOR THE COMPONENTS OF THE" 
140PRINT”CIRCULAR FLOW MODEL OF GOODSj> SERVICES AND MONEY." 
170PRINT j 

180READY,P1 
190 DATA 100 « .75 

200PRINT"ASSUME GNP IS 100 BILLION." 

aiO PRINT "TYPE IN A VALUE FOR PROPENSITY TO CONSUME." 

220 PRINT "MAKE THE VALUE BETWEEN 0 AND .75" 

230LETC1=Y*P1 
240LETI1=Y-C1 
250 LET N=>0 
260 INPUT P2 

265 LET N=N+1 

266 IF P2<0 THEN 220 
270 1 FP2<* . 75THEN420 
280IFP2<.75THEN770 
310IFN«2THEN360 

320 1 FN= 3 then 3 90 

330PRINT"READ CAREFULLY; INPUT AGAIN." 

350G0T0260 

360PRINT"C0ME ON... I'M WARNING YOU." 

380G0T0260 

390PRIWT"0K WISE GUY^YOU'RE OFF." 

400G0T01930 

410PRINT 

420LETV1»C1 

430LETS1»Y-C1 

440LETL1»P1 

450LETYl»Cl-s-Il 

460PRINT 

470PRINT"0RIGINAL GNP-";Y 
480PRINT 

490PRINT"PR0PENSITY TO" 

500PRINT"C0NSUME-";P2 

510PRINT 

520PRINT"C0NSUMPT I ON-"; C 1 
530PRINT 

540PRINT"VALUE OF GOODS" 

550PRINT"+ SERVICES-";V1 
560PRINT 

570PRINT"SAVINGS-";S1 

S80PRINT 

590PRINT"INVEST.-"; II 
600PRINT 

610PRINT"LAB0R-";L1 

620PRINT 

630PRINT"RETURN GNP-";Yl 
640PRINT 

650PRINT"EQUILIBRIUM." 

660PRINT 

670PRINT 

680PRIWT 

690PRINT"T0 PUT IN ANOTHER CONSUMPTION VALUE^TYPE 0." 

700PRINT"TO STOP> TYPE 1" 

7101NPUTQ8 

) 720IFQ8O0THEN210 

7301FQ8-1THEN1930 

740print"type decimal value for propensity to" 
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750PRI NT**C ONSUME” 

760G0T0260 

770PRINT"IF STARTING ,TYPE 100CGNP)iIF NOT" 

780PRINT"STARTINGjTYPE VALUE OF RETURN GNP." 

790INPUTY8 

800LETC2-P2+Y8 

810LETV2-C2 

820LETS2-Y6-C2 

830PRINT 

840PRINT"0KIGINAL GNP-"iY 
850PRINT 

860PRINT"PR0PENSITY TO " 

870PRINT"C0NSUME-"JP2 

880PRINT 

890PRINT"C0NSUMPTI0N-"JC2 

SOOPRINT 

910PRINT"VALUE-"JV2 

920PRINT 

930PRINT"SAVINGS-";S2 

940PRINT 

950LETQ-CI1 )*CP1-P2) 

960LETI2-I1 

970LETE2°I2*.20 

980LETI3>I1-C.25*Q> 

990LET23aI3*°20 
lOOOLETIAii 1 1 - ( . 50 *U) 

1010LETZ<1<>I<1*.20 
1020LETI5-I 1 -( • 75*Q> 

1030LETZ5-I5*.20 

1040LETI6-I1-Q 

1050LETZ6bI6*.20 

1060LETI7-Z2+Z3+ZA+Z5+Z6 

1070LETF»CC2+I2)-0 

1080LET0aI7-Q 

1090LETF1-F-01 

1100LET01>rF-Q 

1110LETF2-F1-02 

1120I.ET02BF1-Q 

1130LETF3-F2-03 

1140LET03-F2>Q 

1150LETF4-F3-04 

1160LET04«F3>Q 

1170LETF5-F4-05 

1180LET05-F4-Q 

U90LETF6-F5-06 

1200LFT06-FS-Q 

1210 IFF<Y7THEN1 760 

1220 1 FF 1 <FTHEN 1 780 

12301FF2<F1THEN1800 

1240 IFF3<F2THEN1 820 

1250 IFF4<F3THEN1 840 

1 260 1 FF5 <F4THEN 1860 

1270IFF6<F5THEN1880 « 

1280PRINT"INVESTMENT BY PERIODSf" 

1290PRlNT"l-3M0NTHS"iZ2 

1 300PRlNT"4-6M0NTHS**i Z3 

1310PRlNT"7-9M0NTHS**iZ4 

1 320PR! NT" 1 0 “ 1 2M0NTHS" i Z 5 

1330PR1NT"END OF 12TH M0NTH”iZ6 

1340PRINT"T0TAL FOB YEAR"! I 7 

1350PR1NT 

1360PB1NT"0VER-INVESTMENT" 
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1370PRINT 
1380LETa2=Pl-P2 
1390LETL2°P1 
1400LETX2=L2«.20 
1410LETL3-P2+< •75*Q2> 

1420LETX3=L3*«20 
1430LETL4»P2+< .50*Q3> 

1440LETX4>L4*«S0 

1450LETL5>>P2-f< 

1460LETX5»L5*«20 

1470LETL6OP2 

1480LETX6-P2*«20 

1490LETL7=X2+X3+X4+X5-«-X6 

1500PHINT"LAB0RJ" 

1510PRINT"l-3M0NTHS-"iX2 

1520PRINT"4-6M0NTHS-";X3 

1530PR1NT"7-9M0NTHS-"ZX4 

1540PRINT"10-12M0NTHS-";X5 

1550PRINT"END OF 12M0NTH-";X6 

1560PR1NT"T0TAL FOR YEAR-";L7 

1570PRINT 

1580LETY2a<C2+Z2>*.20 

1590LETY3=<C2+Z3>*.20 

1600LETY4B < C2*'^A'i*.Z0 

1610LETY5-(C2-fZ5>«,20 

1620LETY6><C2-fZ6>*.20 

1630LETY7=C2+I7 

1640PRINT"GNPj" 

1650PRINT"1-3M0NTHS-";Y2 

1660PRINT"4-6M0NTHS-";Y3 

1670PRINT" 7-9M0NTHS-" ; Y4 

1680PRINT"10-12M0NTHS-";Y5 

1690PRINT"END OF 12 M0NTH-";Y6 

1700PRI NT" TOTAL FOR YEAR-";Y7 

1710PRINT 

1 720PRI NT"RECESSI ON" 

1730LET0»I7-Q 

1740PRINT"INVENT0RY OVERPRODUCED-" i 0 

1750G0T0740 

1760PRINT"GNP-";F 

1770IFF>0THEN740 

1780PRINT"GNP— ";F1 

1790IFF1>0THEN740 

1800PRINT"GNP— ";F2 

1810IFF2>0THEN740 

1820PRINT"GNP— ";F3 

18301 FF3>0 THEN 740 

1840PRINT"GNP — ";F4 

1 8 50 1 FF4>0 THEN 740 

1860PRINT"GNP— ";F5 

18 70 1 FF 5 >0 THEN 740 

1880PRINT"GNP--";F6 

1890PRINT 

1900PRINT"T0TAL DEPRESSION" 

1910G0T0690 

1920PHINT 

19 30 END 
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DISCIPLINi : MATHEMATICS, SPHTAT. q TTTnTTrg 

S UB JE C T THE STOCK MARKET 

PROGI^ NAME STOCK 



DESCRin^ION : 

Tills ju'ogivmi simulates the stock market. Each student is 
given $10,000 with whicli he may buy and/or sell shares in five 
fictitious issues. 

OBJECTIVES: 

A. To give the student a simple understanding of the oper- 
ations of tlic stock market. 

B. To motivate the student to reinforce his basic arithmetic 
skills. 

C. To give an example of the use of everyday mathematics 
and economics in everyday life . 

P PJ^LIM INARY PREPARATION: 

A. Student - no special preparation 

B. Materials - possibly graph paper 
DISCUSSION : 

This pi'ograin can be used as a good motivation device in the 
teaching of basic stock-mai'ket concepts, and the basic mathemat- 
ical skills involved. The computer starts each student with $10,000, 
and allows him to buy and/or sell shares. Precautionary tests are 
included for the student who tries to purchase more shares than 
he has money for, or to sell moi'e shares than he actually owns. 

The program continues for as many trading days as the student de- 
sires. 

The stock values rise and fall on a semi-random basis. On 
each trading day all stocks undei'go a small random price ch^nge, 
a trend cliange (based on a random tx^end), and tlie possibility — 
on a random basis — of a large price change. The structure of the 
formula is: 

new price=old price t (ti^end x old price) + (small random price 
change) + (possible large price change) 
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The trend is a random number between -.1 and +.1. It remains 
constant for a random number of days, at which time the trend is 
changed .randomly . Tlie trend affects all stocks equally, and attempts 
to simulate general market trends. The small random change ranges 
between -3 and +3 points. It occurs e\*ery day to every stock. 

Tlio possible largo price change is either +10 or -10 points. The 
+ and - changes each occur at random intervals, and to random 
stocks. That is, there may be no large change on some trading days, 
only a +10 change on others, a -10 change on still others, and both 
large and small changes on others. In all large-change cases, the 
change affects only one random stock wlien it occurs. 

Because of the random generation of stock values and their 
fluctuations, the program does not exactly simulate the real market. 
It does, however, provide a simplified view of what does happen, 
and familiarizes the student with the basic functions involved. This 
should be explained to the students, along with some real causes 
of stock-market fluctuations. 

G.i;aph paper might be used to plot the daily stock values and 
the exchange average. In this way, the trend will become evident. 
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THC STOCK IIARKET 

DO YOU VANT THE IWSTRUCTIONS (YJ2S-TTPE Is KO-TVPE 0)T \ 



THIS PROGBA« PLj\YS THE STOCK MARKET* YOU WILL BE GIVEN 
Sl0#OOO AWD MAY L'UY OR SELL STOCKS* THE STOCK PRICES WILL 
BE C^I.'ERATED KAKnCKLy At^D THEREFORE TiilS i:ODEL DOES NOT 
REPRESENT KJIACTLV IIIAT HAPPENS ON THE EXCHANGE* A TABLE 
OF AVAILABLE STOCKS# THEIR PRICES# AMD THE NUMBER OF SHARES 
IN YOUR PORTFOLIO UILL BE PRIUTKD* FCLLOUING THIS# THE 
INITIALS OF EACH STOCK UILL RE PRINTED WITH A QUESTION 

Hark; here you ij:dicate a tk. ksaction. to duy a stock 
type ♦H;VN# to sell a stock type •KKN# where H.\>N is THE 

NUMBER OF SHARES* A BROKERAGE FEE OF 12 WILL BE CHARGED 
ON ALL irAMSACTlCMS* MOTE THAT IF A STOCK'S VALUE DROPS 
TO EERO IT MAY KEL-OUND TO A POSITIVE VALUE AGAIN* YOU 
HAVE SI0;000 TO IL-VEST* USE IMTECEHS FOR ALL YOUR INPUTS* 
<NOTCt TO GET A ’FEEL* FOR THE MARKET RUN FOR AT LEAST 
10 DAYS) 

— — »good lucki^— — 



STOCK INITIALS PHICE/SKARE 



INT* BALLISTIC MISSILES 


IBR 


8Si7S 


roo CROSS OF AMERICA 


RCA 


85*5 


UCHTKWSTEIN# BUF.R/XP A JOKE 


LBJ 


155*35 


mTSintCM) BANKRUPT CO* 


ABC 


138 


CENStUlED BOOKS STORE 


CBS 


104*85 



NSW YORK STOCK EXCHANGE AVERAGES 113*75 



^n*rAt ACcn»*rfs Aotr « A 

TOTAL CASH ASSETS ARE S 10000 
TOTAL ASSETS ARE S 10000 

WHAT IS YOUR TRAt^SACTlON IN 

ib:i 7 ft 

RCA? 3 

LBU7 1 

ABC? I 

CBS? 1 



END OF DAY'S TRADUIG 



STOCK 


PRICE/SHARE HOLDINGS 


VALUE 


• NET PRIC 


IBM 


95*S 


8 


193 


10*75‘ 


RCA 


81 


3 


843 


-4*5 . 




153*5 


1 


153*5 


-1*75 


ABC 


135*5 


1 


135*5 


-8*5 


^S 


99 


1 


99 


-5*85 


NEW YORK 


STOCK EXCHANGE 


AVERAGES 113«1 


NET CHANGES 


-•65 



TOTAL STOCK ASSETS ARE S 684 
TOTAL CASH ASSETS ARE S 916A*85 
TOTAL ASSETS ARE S 9990*85 



1 



DO YOU WISH TO CCHTUJUfi (YES-TYPE I# 
UlAT IS YOUR TP^MSACTION IN 
5 

1 



IBM? 
RCA? 
L3U? 1 
ABC? I 
CBS? 0 
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END OF DAY'S 


trading 






STOCK 


PBICE/SH/iRE 


HOLDINGS 


VALUE 


NST PRICE CUANGB 


IBM 


96 .75 


7 


691.25 


8.85 ' 


RCA 


68.5 


4 


330 


US 


UlU 


154 


8 


308 


• 5 


AUC 


133.5 


8 


867 


-8 


CBS 


108.73 


1 


108.75 


3.75 




KEV YOilK STOCK JUXCKANOS Al/EKASEl flA.d NST C^NGSt UG 

TOTAL STOCK ASSETS ARE S 1699 
TOTAL CASH ASSETS ARE S C305.83 
TOTAL ASSETS AilE 5 1000A.83 



DO YOU WISH TO CONTI «US < YES-TYPE 1* NO-TYPE 0)? 1 
«iAT IS YOUR TUAHSACriCN IN ' 

3 



113M7 

RCA7 

LDU7 

ABC? 

CBS? 



8 
5 
• 1 
3 



END OF DAY*S TRADING 



STOCK 


price/shaue 


HOLDINOS 


IDK 


99*85 * 


10 “ 


RCA 


88.85 


6 


LBO 


154.75 


7 


ABC 


133.5 


1 


C8S 


103.85 


4 



VALUE KKT PRICE C^QS 



998.5 


•5 


493.5 


-.85 


1063.85 


• 15 


133.5 


0 


413 


• 5 



NEW YORK STOCK EXCHANGE AVERAOEI 114.6 



NET CHANQEt *3 



TOTAL STOCK ASSETS ARE 



TOTAL CASH ASSETS ARE 
TOTAL ASSETS ARE 



S 3119.75 
S 6862.5 
S 9998.85 



DO YOU WISH TO CONTlNlta <YES-TYPE Ip NO-TYPE 0>? 1 
UiAT IS YOUR TRANSACTION IN 
IDM? 5 



RCA? 3 
LBJ7 5 
ABC? 3 
CBS? 4 





END OF DAY'S 


TRADING 






STOCK 


PRICE/SUARE 


HOLDINGS 


VALUE 


MET PRICE 


im 


96.75 


15 ■ 


1451.85 


-8.5 ■ 


ncA 


60.5 


9 


784; 5 


-1#75 


LDJ 


150 


18 


1800 


-4.75 


ABC 


138 


4 


S86 


-1.5 


CBS 


98* 75 


6 


790 


-4.5 



^£V YORK STOCK EXCMANOE AVERAOEI 111.6 NET CHANQEl -3 



TOTAL STOOi: ASSETS ABE 
TOTAL CASJi ASSETS ARE 
TOT.AL ASSETS /JIE 



S 5893.79 
S 4588.95 
S 9888.7 
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CO YOU UISH TO CONTINUE < YES-TYPE 1# NO-TYPE 0)7 i 

ttlAT IS YOUR TBhNSACTION IN ’ ’ 

ICH7 0 

PCA7 -S 

LBJ7 -7 

ADC7 0 

CBS? -5 



end of DAY'S TRADING 



STOCK 

IBM 

ACA 

UK) 

ASC 

CBS 



PRICE/SHARE 


HOLDINGS 


VALUE 


NET PRICE CHANGE 


96*75 


15 


)451*85 


0 


66*75 


4 


267 


-13*75 


150*75 


5 


753*75 


i75 


132 


4 


520 


0 


95.75 


3 


&67*85 


-3 



NCV YORK STOCK EXCHANGE AVEHAGEf 108*4 NET CHANOEl -3*8 



TOTAL STOCK ASSETS ARE S 3267*85 
TOTAL CASH ASSETS AHE % 6455*74 
TOTAL ASSETS ARE % 9742.99 



DO YOU VISH TO CONTINUE CYES-TYPE U 

WAT IS YOUB TRANSACTION IN 

IBM7 -10 

RCA? -2 

LBJ7 2 



ABC7 2 
(SS7 0 



NO-TYPE 0)7 I 



*««««««««« end of DAY'S TRADING 



STOCK 

IBM’ 

RCA 

L8J 

ARC 

CBS 



PRICE/SHARE 


HOLDINGS 


VALUE 


NET PRICE CHANGE 


87.5 


'5 * 


437*5 


-9.25 * 


5Q 


8 


116 


-8.75 


135*25 


7 


946*75 


-15*5 


123*5 


6 


735 


-9.5 


96*75 


3 


896*35 


3 



REV YORK STOCK EXCHANGE AUEHAGEt 100*4 NET C^NQEI -8 

TOTAL STOCK ASSE :S ARE S 8531*5 
TOTAL CASH ASSET > ARE S 6974*58 
TOTAJ., ASSETS AHL S 9506*08 



DO YOU UlSH TO CONTINUE (YES-TYPE 1# NO-TYPE 0)7 1 

CHAT IS YOUR TRANSACTION IN 

I6M7 -4 

RCA7 -1 

LBJ7 -6 

ABC? -B 

C3S? -2 
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END OF DAY'S 


TRADING 






STOCK 


price/skare 


HOLDINGS 


VALUK 


NET PRICE CHANGE 




80 


1 


80 


-*7.5 


RCA 


51 


1 


51 


-7 


L0J 


I8U75 


1 


1G1.75 


-13.5 


ABC 


109.5 


4 


438 


•13 


CSS 


91.5 


1 


91.5 


-7.8S 



NEW YORK STOCK EXCHANGE 


AVERAGE! 90*75 


NET CHANGE! -9.65 


TOTAL STOCK ASSETS ARE 


S 782.85 




TOTAL CASH ASSETS ARE 


S 8619.96 




TOTAL ASSETS ARE 


S 9402.21 





DO you WISH TO COMTItIUE <YES-TYPE U NO-TYPS 0>? I 

VHAT IS VC'Ua Tii(^NSACTION IN " ' 

I15M? 0 

ACA7 0 

L807 0 

AOC7 -3 

C3S7 0 



«4i****«*** £NO OF OAY*S TAADXNQ 



STOCK PRICE/SRAHE HOLDINGS VALUE NET PillCK CHANGE 



IBM 


77*5 1 


77.5 


-8.5 ' 


RCA 


53.85 1 


53.35 


1.35 


LOJ 


119.35 1 


119.35 


-2.5 


ADC 


107 1 


10 7 


-3.5 


C85 


93.25 t 


92.35 


• 75 



( 



HEM YORK STOCK EXCHANGE AVERAGE! 89*65 NET CHANOEt -l«l 



TOTAL STOCK ASSETS ARE 
TOTAL CASH ASSETS ARE 
TOTAL ASSETS ARE 



S 440 .85 
S 8945*18 
% 9393#43 



DO YOU WISH TO CONTINUE <YES-TYFE i, NO-TYPE 0>? 1 
EHAT IS YOUR TRAI^SACTION IN 
ItilT 0 .... - 

nCA? 0 
0 

AnC7 0 
CBS? 10 



end of DAY‘S TRADINO 



- 


^OCK 


PRl CE/SUARE 


HOLDINGS 


VALUE 


NET PRICE CIJANGE 




IQM 


74*5 




74*5 


-3 




RCA 


S4 


1 


54 


1*75 




!;cj 


107 


1 


107 


-18.35 




ABC 


108 


i 


106 


1 




C3$ 


90.75 


11 


996.35 


-1.5 
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NEV YORK STOCK EXCHANGE AVERAQEl 86.85 WIT CH^SIl -2.8 



total stock assets are 

TOTAL CA[51 ASSETS ARB 
TOTAL ASSETS ARE 



S 1341*75 
% 0013*46 
S 9355*81 



DO YOU UlSlI TO CONTIHirE <YES-TVPE l« NO-TYPB 0>7 1 

WAT IS YOUR TRAfJSACTION IN 

IBM7 5 

RCA? 6 

LBJ? %0 

ARC? 10 

C8S7 10 



END or DAY*S TRADUIO 



STOCK 


PRlCe/SHARB 


HOLDINGS 


VALUE 


NET PRICE CHANGE 


IBH 


?a 


6 ‘ 


438 


•8.5 " 


RCA 


5.^*5 


7 


367*5 


•1.5 


LDJ 


105 


11 


1155 


•a 


A8C 


103*£5 


li 


1135.75 


-4.75 


cas 


91*5 


ai 


1981.5 


• 75 



NEV YORK STOCK EXCHANGE 


AVERAGE 1 84*85 


NET C^GEt -8 


TOTAL STOCK ASSETS ARC 


S 5011.75 




TOTAL CASH ASSETS ARE 


S 4281.92 




TOTAL ASSETS ARE 


S 9833.67 





DO YOU W5II TO CONTINUE (YES^TYPE 1# NO^TYPE 0>? 0 
HOPE YOU'HAD FUN! I 



READY 
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100 

101 

10 B 

103 

104 

105 

106 

10 7 

10 B 

109 

no 

112 

113 

114 

115 

116 

117 

116 

119 

120 

121 

122 

123 

124 

125 

126 

130 

132 

134 

135 

136 

137 

136 

139 

140 

141 

142 

143 

144 

145 

146 

147 

200 

210 

220 

230 

240 

250 
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HEM STOCK ^lAHKET SIMULATION -STOCK- 

HEM flEVISED b/16/70 CD. PESSEL^ L. OHAUN^ C. LOSIK) 

HEM IMP VHBLS; A-MnKT THND SLP; B5-BnKHGE FEE; G-TTL CSH ASSTS; 

HEM C5-TTL CSH ASSTS (TEMP); CCD-CHNG IN STK VAL; D-TTL ASSTS; 

HEM EnE2-LHG CHNG MISC; 1 -STCK mi2-STCKS W LHG CHNG; 

HEM NnN2-LHG CHNG DAY CNTS; P5-TTL DAYS PHCHSS; PCD-PHTFL CNTNTS; 
HEM 09-NEW CYCL?; S4-SGN OF A; S5-ri'L DYS SLS; SC I) - VALUE/SHH; 

HEM T-TTL STCK ASSTS; T5-TTL VAL OF TriNSCTNS; 

HEM W3-LHG CHNG; Al-SMLL CHNGC<SD; E4^E5^E6-NYSE AVE.; ECD-THNSCTN 
PRINT TABC20);”THE STOCK MARKET" 

DIM SC5)^PC5)^AC5) .CC5) 

HEM SLOPE OF MARKET TREND; A C SAME FOR ALL STOCKS) 
kANDOMIEE 

LET A=INTC CHNDCX)/10 )*100+.5)/100 

LET T5=0 

LET X9=0 

LET Ni=0 

LET N2=0 

LET E1=0 

LET E2=0 

HEM INTRODUCTION 

PRINT "DO YOU WANT THE INSTRUCTIONS CYES-TYPE U NO-TYPE 0)"; 

INPUT E9 

PRINT 

PRINT 

IF E9<1 then 200 

PRINT "THIS PROGliAM PLAYS THE STOCK MARKET. YOU Wi.’.L BE GIVEN" 
PRINT "SIO^OUU AND MAY BUY OH SELL STOCKS. THE STOCK PRICES WILL" 
PRINT "BE GENERATED RANDOMLY AND THEREFORE THIS MODEL DOES NOT" 
PHINT "HEPHESENT EXACTLY WHAT HAPPENS ON THE EXCHANGE. A TABLE" * 

Print "of available stocks^ their prices^ and the number of shares" 

PHINT "IN YOUR PORTFOLIO WILL BE PRINTED. FOLLOWING THIS^ THE" 
PHINT "INITIALS OF EACH STOCK WILL BE PRINTED WITH A OUESTION" 

PHINT "MARK. HERE YOU INDICATE A TRANSACTION. TO BUY A STOCK" 
PRINT "TYPE +NNN^ TO SELL A STOCK TYPE -NNN^ WHERE NNN IS THE" 

PHINT "NUMBER OF SHARES. A BROKERAGE FEE OF 1% WILL BE CHARGED" 
PRINT "ON ALL TRANSACTIONS* NOTE THAT IF A STOCK'S VALUE DROPS" 
PRINT "TO XEHO IT MAY REBOUND TO A POSITIVE VALUE AGAIN. YOU" 

PHINT "HAVE SIO^OOO TO INVEST* USE INTEGERS FOR ALL YOUR INPUTS*" 
PRINT "CNOTE; to get a 'FEEL' FOR THE MARKET RUN FOR AT LEAST" 
PRINT "10 DAYS)" 

PRINT " GOOD LUCK! " 

REM GENERATION OF STOCK TABLE; INPUT REQUESTS 
REM INITIAL STOCK VALUES 
LET SC1)=100 
LET SC2)=65 
LET SC3)=150 
LET SC4)=140 
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ii6o LET 5<5) = llu 

E65 kEM initial To - # UATi FOii FIltST TiiENT) SLOFE CA) 
ki66 LET Tb=INTCd .yy*iiNDCA) + l ) 

'dbl tiEN rtANU0Ml4,E SIGN OF FIuST TliEND SLOFE CA) 

260 IF n,i\iDCA)>.5 THEN 270 
26y LET A=-A. 

270 rtEM rtANDOMI^E INITIAL OALUES 
200 GO SUB 830 

285 HEM INITIAL i-OHTFOLIO CONTENTS 

2y0 FOH I=I TO 5 

300 LET H C I ) =0 

305 LET ECn«=0 

310 NEAT I 

320 HHINT 

330 HHINT 

333 nEW INITIALISE CASn A5SETS;0 
335 LET C=10UOU 

338 HEN FHINT INITIAL POUTFOLIO 

3A0 HHINT •■STOCK'S" " j " 1 N 1 TI ALS"^ "HHlCE/SrtHHE" 

350 HnINT "INT. BALLISTIC MlSSILEo"#" ltii«i"jSCn 
352 HHINT "HED CrtOSS OF AMEHICA"^" HCA"jS(2) 

35A HHIMT "LiCnTEMSTElNj BUMrtAi- & oOKE"j" LBJ"jS<3) 

356 HHINT "AMERICAN BANKuUHT CO."j" ABC'jSCA) 

358 HHINT "CENSUHEU BOOKS STOnE"#" CBo"^SC5) 

360 HilINT 

361 HEiM NYSE AVEnAGE;S5J TEMH . v/ALOE:SA; NET CrtANGE:S6 
363 LET SA=S5 

36 A LET S5=0 
365 LET T=o 
370 FOH 1=1 TO 3 
375 LET S5=S5+SCI) 

380 LE T T=T + S C I ) C I ) 

300 NEAT I 

301 LET S5=INTC 100*C a5/5>+.S)/1UO 

302 LET S6=1NTC CS5-SA)*100+. 55/100 

303 HEM TOTAL A88ETS:D 
30A LET D=T+C 

305 IF a9>0 THEN 398 

306 FhINT "NEW YOKK STOCK EaChANGE Av/EhAGE: "a5 

307 GO TO 300 

398 HHINT "NEW YOhK STOCK EaChANGE AVEhAGE: "S5" NET ChANGE: "a6 

399 FHINT 

AOO LET T=1NT( IOO*T+ .55/100 

AOl FHINT "TOTAL STOCK ASSETS AHE i";T 

AU3 LET C=lNTCluo*C+. 55/100 

405 BHINT "TOTAL CASH ASSETS AHE S";C 

407 LET 15=INTC IOO*D+. 55/100 

408 HHINT "TOTAL ASSETS AHE £";U 

410 HHINT 

411 IF AO=0 THEN 416 
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( 



41 a r’riINT ”DO YOU WISH TO CO^)TI^iUE CTES-TYHE 1^ NO-TYHE 0)" 
413 livJHUT uy 



414 

416 

420 

430 

440 

450 

460 

470 

4b0 

490 

500 

510 

520 

525 



IF u9<i THEN yyfa 
HEM INHUT TiiANSACTIONS 
PHI NT "WHAT 15 YOUH ThANSAOTI ON IN" 
PHI NT "IHM"; 

INPUT ECU 
PHINT "HCA"i 
INPUT EC2) 

PrtlNT "LBU"i 
INPUT EC 3) 

PHINT "ABC"; 

INPUT EC4) 

PiilNT "CBS"; 

INPUT EC 5) 

PHINT 



530 HEM TOTAL DAY'S PUHOhASES IN S:P5 
540 LET P5=0 

550 HEM TOTAL DAT'S SALES IN S:S5 

560 LET S5=U 

570 FOH I=I TO 5 

575 LET EC I )=INTCEC I ) + .5) 

5B0 IF ECIX=0 Then 610 
590 LET P5=P5+EC I )*SC I ) 

600 GO TO 620 

610 LET S5=S5-EC I )*SC I ) 

612 IF -ECn<=PCI) THEN 620 

614 PHINT "TOU HAVE OWEHSOLD A STOCK! THY AGAIN." 
616 GO TO 420 

620 neat 1 

622 HEM TOfAL VALUE OF THANSACT 1 ONS: T5 

625 LET T5=P5+S5 

630 HEM BHOKEHAGE FEE:B5 

640 LET B5=INTC .01*T5*100+. 51/100 

650 REM CASH ASSETS=OLD CASH ASSETS-TOTAL PURCHASES 

652 HEM -BROKERAGE FEES+TOTaL SALEStCS 

654 LET C5=C-P5-B5+S5 

656 IF C5>=0 THEN 674 

658 PHINT "YOU HAVE USED $"^C5" MOH 

E then you have." 

660 GO TO 420 

674 LET C*C5 

675 HEM CALCULATE NEW PORTFOLIO 
680 FOR 1=1 TO 5 

690 LET PC I )=PC I l+ZC 1 1 
TOO NEXT I 

710 HEM CALCULATE NEW STOCK VALUES 

720 GO SUB 830 

750 HEM PHINT PORTFOLIO 
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751 
75 
75 J 
75^ 

755 

756 
75 7 
755 
759 

769 

770 

771 

772 

773 
77^ 
775 
7bu 
790 
tilO 
629 
o30 

631 

632 

633 
63^ 

640 

641 

645 

646 



itcIM BELL rtliXJGliNJG-DIKFKHEiMT Oi\) MANY COMBUfKllS 
FOi< I-l TO 2U 
FfiiiNJT CiirtSC135)i 
NEaT I 
FHIMT 

PHINT ••;f:*;ic******* KNU OF DAY’S TKADltvJG" 
PiiliMT 



PiilNT 



IF A9<1 
PHliMf *• 
PiilNT '• 
PxiIMT •• 
PHlNf *• 
PliINT •• 
PrilWT ” 



^nE^^ 769 

DrOCK**>*VrtICE/5nAKE'S”MOLDiN6S*S”OALUE 



IBM”^ 


SC 1) j 


PC 1) j 


HCA”^ 


SC2) j 


PC2) j» 


LBJ”jr 


SC3)^ 


PC3)^ 


ABC’jr 


SC4)., 


PC4) jr 


CBS”^ 


SC5) j 


PC5)^ 



SC i)*pci)^ ccn 

SC2)*PC2)J CC2) 
SC3)*^PC3)^ CC3) 
SC4)*PC4)^ CC4) 
SC5)*PC5)^ CC5) 



’’NET PKICE 



LET X9=l 



UhANGE” 



PHINT 
PHINT 
GO TO 36U 

liEM NEW STOCK VALUES - SUBitOUfiNE 

HEM HANDOMLY PHODUCE NEW STOCK VALUES BASED ON PHEVIOUS 
HEM DAY’S VALUES 

HEM N1^N2 AkE HANDOM NU^33EHS OF DAYS WrtlCrt HESPEGTIVELY 
HEM DETExiMINE WHEN STOCK il WILL INCiiEASE 10 PTS# AND STOCK 
HEM 12 WILL DECHEASE lO PTS. 

HEM IF N1 DAYS HAVE PASSED^ PICK AN IIj SET EIj DETEHMINE NEW N1 
IF Nl>U THEN 650 
LET I l=INTC4.99*HNDCK)+l ) 



LET Nl=INrC4.99*HNDCA)+l ) 



647 LET El=l 

650 HEM IF N2 DAYS HAVE PASSED^ PICK AN 12^ SET E2j DETEHMINE NEW N2 

651 IF N2>U THEN 660 

655 LET I2 = lNTC4.99*iiND(A) + l) 

656 LET N2=INT(4.99*i<ND(A) + l) 

657 LET E2=l 

660 HEM DEDUCT ONE DAY FHOM N1 AND N2 

661 LET Nl-Nl-1 

662 LET N2sN2-l 

690 HEM LOOP THHOUGH ALL .STOCKS 



900 


FOK 1=1 TO 5 




910 


LET X1=HND(X1 




915 


IF Al>.25 THEN 


920 


916 


LET Xl=.25 




917 


GO TO 935 




920 


IF XI >.50 THEN 


925 


921 


LET XI =.50 




922 


GO TO 935 




925 


IF XI >.75 THEN 


930 


926 


LET XI =.75 




927 


GO TO 935 
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( 930 LET XI =0.0 

931 HEM BIG CtlANGE C0NSTANT:W3 (SET TO XEKO INITIALLY) 

935 LET w/3=0 

936 IF EKl THEN 9A5 

937 IF INT(Il + .5)oINT(I + .5) THEN 9A5 

93B HEM ADD 10 FTS. T.0 THIS STOCK; HESET El 

939 LET W3=10 

9A3 LET E1=0 

9A5 IF E2<1 THEN 955 

9A7 IF INT(I2+.5X>INT(l+.5) THEN 955 

9AB ilEM 3UBTHACT 10 HTS. FKOM THIS STOCK! HESET E2 

9A9 LET W3=W3-10 

953 LET E2=0 

95A HEM CCD IS CHANGE IN STOCK VALUE 

955 LET C( I )=INT(A*S( I ) )+Xl+INT( 3-6*HND(X)+.5)+W3 

956 LET C( I )=INT( 100*C( I )+.5)/100 

957 LET SC I )=S( I )+C( I ) 

960 IF S(I)>0 THEN 967 
96A LET C(I)=0 

965 LET SC1)=0 

966 GO TO 970 

967 LET S(I>=INT(100*S(I)+.5>/100 
970 NEXT I 

972 HEM AFTEh TtS DAYS hANDOMLY CHANGE THEND SIGN AND SLOFE 

973 LET Tb=TB-l 

97A IF TB<1 THEN 9B5 
960 HETUHN 

965 REM HANDOMLY CHANGE THEND SIGN AND SLQHE (A), AND DURATION OF 
/ 966 HEM OF THEND (T6) 





990 


LET Tb = INT(^.99*rtNi:)CA) + l) 




992 


LET A=1NTC (KNDCa)/10)*100+.5)/100 




993 


LET SA=HNDCa> 




99^ 


IF 5A<=.5 THEN 997 




995 


LET A=-*A 




99 7 


HETURN 




99b 


PRINT "HOPE YOU HAD FUNl!" 




999 


END 



i 




i 
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Teacher Assistance 
AVERGl 

DEScrapnoN: 

This program will average any number oE grades. A passing grade 
must be inputed by the teacher, and the computer will list tho uimioi-- 
ical value oE the curve and the respective ad.insted grades. 



600 DATA 65«78«76«48*6S«7e«e8«69«71«S6«90«67«S9«60«70«74«68«57jd6 

601 data 64«63«65«S9«60«56#48«66 
RUN 

PASSINQ GBADE FOB THIS TEST IS 7 70 

THE AVERAGE OF ALL CBADES ENTERED IS 65 >70 3 7 • 

1HE AVERAGE FALLS BELOV THE PASSING GRADE BY 4 POINTS. 

(ROUNDED TO NEAREST VHOLS NUMBER. 1 

ADJUSTED GRADE - ORIGINAL GRADE 4 



STUDENT 


ORIGINAL 


ADJUSTED 


NUHBEa 


GRADE 


GRADE 


i 


65 


69 


2 


76 


82 


3 


76 


60 


4 


48 


52 


5 


65 


69 


6 


78 


88 


7 


82 


66 


a 


69 


73 


9 


71 


75 


10 


56 


60 


u 


90 


94 


12 


67 


71 


13 


59 


63 


U 


60 


64 


15 


70 


74 


16 


74 


78 


17 


62 


66 


16 


57 


61 


19 


66 


70 


20 


64 


68 


21 


63 


67 


22 


65 


69 


23 


59 


63 


24 


60 


64 


25 


56 


60 


26 


48 


58 


27 


66 


70 


BBADY 







Er|c 



Tuac! er Assistance 
AVnRGI 



o 

ERIC 



lUOREM COURT« G.M.< WALT WHITMAN H.S.« R£VISED ti/69 
105 HEN REVISED BY C.LOSIK B-a6>70 
11 OREM 

120REM PROGRAM AVERAGES ANY NUMBER OF GRADES* FOR CURVING PURPOSES 
130REM YOU ARE ASKED FOR A PASSING GRADE* IF THE AVERAGE FALLS BELOW 
lAOREM THAT THE DIFFERENCE WILL BE PRINTED OUT AS WELL AS ;i2wLY CAL- 
150REM CULATED GRADES FOR EACH STUDENT* REMEMBER THAT 'HIS TYPE OF 
160REM CURVING IS VALID ONLY IF THE ORIGINAL GRADE DI5> iRlBUTI ON 
170REM SHOWED A BELL CURVE* 

160HEH 

190REH ENTER GRADES ON DATA LINES 600-700* 

200HEM 

8B0READX 

230IFX-9999THENB60 

2A0LETN-N41 

esoGOToaao 

260AEST0RE 

270LETQ-0 

2B0PRINT 'PASSUtO GRADE FOR THIS TEST IS ’'I 

290INPUTP 

OOOFORTbITON 

310READA 

? -LETa-Q^A 

330NEXTT 

340 LET M^G/N 

350PRINT 

360PH1NT'*THE AVERAQB OF ALL GRADES ENTERED IS"M"*" 

36S LET D-0 

370IFMt>PTHEN410 

380PR1NT 

390LETD-INTtP-M»*5) 

400PRINT**THE AVERAGE FALLS BELOW THE PASSING GRADE 8Y"D" POINTS*** 

405 PRINT "(ROUNDED TO NEAREST WHOLE NUMBER*)" 

410REST0RE 
415 PRINT 

417 PRINT "ADJUSTED GRADE ■ ORIGINAL GRADE ■•■"D 
480PRINT 

430PRINT**STUDENT"«**0RiaiNAL"«** ADJUSTED" 

440PRINT*'NUMBER"«" GRADE"*" GRADE" 
450PRINT"aMBBBB"*"aaanMaa"*"aaiiBBBM" 

460F0RXolT0N 

470READA 

490 PRINT X*A*A-)'D 
SOONEXTX 

600 data 65* 78* 76*4S*«5* 78*88*69* 71*56*90*67*S9*60*70*74*60«S7*S6 

601 DATA 64*63*65*59*60*56*48*66 
701DATA9999 

999END 
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Teacl’er Assistance 
A\^R02 



DESCRIPTION: 

This program will sort and average from to 10 grades. t‘or up 
to 35 students. 

Data is entered in lines 600-609. The data are entered in order 
of student number for the first test, followetl by the g)*ades for tlie 
second test in order of student number, ibllowed by t*'e grades on the 
third test in order of student number, etc. 

The program prints a table listing the grades for eacli student 
and his average. 



6Uu 


DA i‘A 


0*10* 


12* 5y j 66 j 70 *15*1 


00* 


11*65 




- 








fiO 1 


DAIA 


5u * 


65 


* 70 * 


6b*lu* 


15*10* 


65* 


10 * 70 












60 ci 


DA ia 


75 j 


toO 


* b5* 


90*95* 


b5 j b 5 j 


90* 


92*61 












60 0 


DAIA 


65^ 


70 


* 15 s 


65 s bl * 


11*66* 


90* 


15* 64 












60 A 


DATA 


65^ 


70 


*15* 


yo * b5 * 


11*16* 


69* 


85^ 15 












60 6 


DATA 


lb* 


toO 


*bO* 


60*65* 


15*90* 


69* 


lb*61 












H60 6 


DATA 


lb* 


70 


* bO * 


55s59* 


61* 16* 


5^* 


16*5H 












60 7 


DATA 


15* 


75 


j 6b j 


90*95* 


61*5^* 


61* 


86^ 7o 












60 0 


Dai A 


toO * 


yo 


* 55 j 


15*6^* 


66* 66* 


90* 


96 * 7o 












60 y 


DA A'A 


55^ 


6y 


* lb* 


yo jO jO 


*16*91 


' « 5b 


^ 15 












liEAD'r 




























ruJN 




























WUhJiirt OF 


5i* 


UDENTS 


IN CLASS IS 




- ? 10 












ivjJMBH 


OF 


GiiAOES TO 


BE AVEtiAGED 


I lb 


— ? 


10 










oi’UD. 












GHADE5 














WO* 






( 


LAST 


COLUMN LISTS AUEitAGE 












1 


0 


50 




75 


65 


65 


75 


75 


75 


80 


55 


6o ‘ 


.3 


•a 


70 


65 




bO 


70 


70 


80 


70 


75 


yo 


6y 


73. 


► y 


3 


12 


70 




b5 


75 


75 


bO 


80 


68 


55 


78 


73. 


» 8 


A 


5y 


6o 




yo 


55 


yo 


80 


55 


yo 


75 


yo 


78. 




5 


66 


70 




95 


«7 


85 


85 


5y 


y5 


64 


0 


78. 


»4 


6 


70 


75 




65 


77 


71 


75 


6 7 


8 7 


66 


0 


74. 


► 8 


7 


7S 


70 




o5 


66 


7b 


90 


78 


54 


86 


76 


77. 


. 8 


0 


100 


65 




yo 


yo 


by 


69 


54 


67 


yu- 


9 1 


83. 


. 1 


y 


77 


70 




92 


75 


85 


16 


76 


86 


yb 


5b 


7y. 


.5 


10 


65 


70 




bl 


64 


75 


67 


34 


7o 


7b 


75 


6y . 
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Teacher Assistance 
AVERG2 



IUOkEM PEnt^-COUnf# wAL f WrtI fMAN 7/6V 

IIU HEM uEVl:sEU lU/70 Hi DAv/ID iOBIN - HOL!f lECn 



liiUJiEM 

IJunEM huOGhAM bouts and AVEuAGES FnOM J TO lu GUADES FOU OF TO 35 
14UUEM STUDENTS. TuET AUE TuEN UUlNTEU OUT. TuE GuADES MAY BE FUOM 
15UUEM TEST:5 OU uUAUTEULY AUEUAGES. 



16UUEM 

17u UEM note: TuE NUMBEU OF GUADES UEU STUDENT TIMES TuE NUMBEU 

ItsU UEM OF oTUDENTB MUST NOT EaCEED By5. 



lyU UEM 

aOUuEM THE GjiADES AUE ENTEuED IN THE SAME OuDEh FOU EACu TEST OU 
BIUUEM UUAUTEii. FuOM STUDENT NUMBEU ONE TO TUE LAST IN THE CLASS. TuE 
BBUHEK UiiOGUAM WILL SOuT OUT AND AOEUAGE TuE GiiADES FOU EACH STUDENl 
B3UUEM SEPAuATELY. IF A GuADE IS MISSING FOii ANY STUDENT# A EEUO MUST 
BAUUEM BE ENTEUED. THESE WILL NOT BE AOEjiAGED IN. IF YOU WANT TO AOEuAGE 
BbOUEM IN A EEuO AS A GUADE# ENfEn A GuADE OF 1 INSTEAD. IT WILL NOT 
BGUiiEM AFFECT TuE AOEuAGE SIGNIFICANTLY. 

B7UUEM 

TiBuUEM uEMEMBEU TO EN TEu THE SAME NUMBEU OF GuADES FOu EACH STUDENT IN 
ByOuEM Tut, OiiUEu PUESCUIBED ABODE. IF THIS IS NOT DONE# THE GUADES 
30UUEM AND ADEUAGES WHICH AUE PUlNTED OUT WILL NOT BE GOUiiECT. 

SlOuEM 

3BUPUINT" NUMBEU OF STUDENTS IN CLASS IS " i 

33U INPUT N 

3a 0 PUINT "NUMBEU OF GUADES TO BE ADExiAGED IS "i 

350 INPUT G 

360 FOU 1=1 TO N*G 

370 HEAD X 

3ti0 IF X=9Wyy THEN 1020 
390 NEXT I 
AOO HEAD A 

^10 IF xoyyyy TuEN 1020 
^j 20 PxtlNT 
430 PUINT 
440 PUINT 

450 PUINT "STUD."#" GuADES" 

460 PUINT " NO. (LAST COLUMN LISTS ADEUAGES)" 

470 UESTOUE 

4tsO FOu 1 = 1 TO N 

490 PUINT I 1 

500 GOSUB B5U 

510 LET S=0 

520 LET E=0 

530 IF 1=1 THEN 570 

540 FOB 0=1 TO l-l 

550 HEAD X 

560 NEXT U 

570 FOxi rt=l TO G 

5B0 HEAD X 



4 



e 
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T(?ache^r Assistance 
AVER02 



( 



IK A<>0 rrtEiM 7iiU 

b'J U UA i’A \J f 1\J * 'f ci * b V ^ 6 6 ^ 70 ^ 7 b ^ I U 0 ^ V 7 ^ 6 .'d 
AU l UAi A bO^ 6b^ 70 ^66^ 70 ^ 7b^ 70 .f 6b^ 70 ^ 70 
60i:i OAi'M 7b^ti0^bb^y0^95^tib^tt5^yo^Vci^b7 
AOJ Umi'a 6b^70^7b^b5vb7^77^ti6^yo^7b^6^ 
hOA OHirt 6b^70^7b^VU^tib^7l^7b^6V^0b^7b 
60 r5 UAi'A 7b^b0^ti0^ti0^tib^ 7b^V0^bV^ 70^67 
606 data 7b^7O^toO^bb^b9^67^7ti>5A\^76^0^ 

60 7 UA i‘A 7b ^ 7b^ 6o^yu^ ^b^0 7^ b4^ 6 7>o6^ 7o 
60b UAiA bO ^ VO ^ bb ^ 7b^ 64^66^ b6^ 90 ^ yo^ 7o 
60V UAi’A bb^6V^ 7b^V0^U^U^ 76^ V7^bb.i 7b 
7uO DATA VVVV 
710 LEi’ 

7EU LET b=b+A 

7J0 i^Ul.Nii aJ 

7A0 GObOb VOO 

7bO IF K=G TrlEiNi 7 VO 

760 FOU L=1 TO W- 1 

770 liEAU A 

7bO NEAT L 

7V0 NEaT li 

bOO LET b=S/(G-^.) 

blO PiilNT lNTClO*b+*5>/lO 

620 HEbTOiiE 

630 NEaT I 

b^O STOP 

6 b 0 IF l<lo iiiEisJ obO 
b60 GOSUB VVO 
670 HEl’UaiN) 
bbO GOSUB VbO 
bVO liETUivN 

VOO IF A<10 TrtEN 940 

910 IF A<1U0 i’hEN 960 

V30 nErUrtN 

V40 GOSUB VbO 

V50 liETJitW 

960 GOSUB 990 

970 KETUflN 

VbO PUINT " "i 

VVO PHiwT*' *•; 

1010 rlETUHN 

1020 PKINT "CHECK YOUH DATA LINES. 'lOUrt ENl’KlES DU NOT SnOW" 
1030 PKINT "TrtE SAME NUMBEH OF GKAUES FOu EACrt STUDENi*." 

1040 END 



( 
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Teacher Assistance 
FREQ 



liCSCKIPflON; 

This jirograin prints a Treqiiuncy distribution (bar graphs) of 
grades, loj' a single test (or one or more classes, or Tor several 
tests I'oi- one student. 



600 DATA 25# AO* 45» 50#55» 60»65» 70» 75» 80*85»90»95» 100 

601 DATA 3S#A0#45#50#9S#60#65#70#7S#80#ES#90#9S 
60S DATA S0#S5#60«6S#70#7S#80#85#90 

603 DATA 55#60#65#70#7S#80#8S 

604 DATA 60#65>70#7S#80#8S 

605 DATA 65# 7Q# 75*80 ' 

606 DATA 65# 70# 75*80 

607 DATA 70*75 

BEADY 

RUM 



GRADE FHEOUEMCY DISTRIBUTION CBAR GRAPH) 



GRADE 


1 5 


0 


1 


5 


1 


10 


I 


15 


1 


eo 


1 


25 


IX 


30 


IX 


35 


IXX 


4C 


IXX 


45 


IXX 


50 


iXXX 


55 


IXXXX 


60 


IXXXXX 


65 


IXXXXXXX 


70 


IXXXXXXXX 


75 


IXXXXXXXX 


60 


IXXXXXXX 


85 


IXXXXX 


90 


IXXX 


95 


IXX 


100 


IX 



1$ 80 85 30 



READY 
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Teacher Assistance 
FREQ 



( 



lOOREM PEREZ* WALT WHITMAN K.S.* REVISED 7/69 

JOS REM REVISED BY C.LOSIK S-26-70 

llOREM 

120HEM THIS PROGRAM PRINTS A FREQUENCY DISTRIBUTION OF GI»ADES* 
ISCREM ENTRIES ARE ROUNDED OFF TO THE NEAREST 5 AND INDICATED ON A 
lAOREM BAR GRAPH. IT MAY BE USED FOR A SINGLE TEST FOR ONE OR MORE 
ISO REM CLASSES OR FOR SEVERAL TESTS FOR ONE STUDENT* THE PROGRAM IS 
160REM SET TO ACCEPT UP TO ISO GRADES. LINES 600-700 ARE SET ASIDE 
170REM FOR DAiTA ENTRIES* THEY MAY BE ENTEftED IN ANY SEQUENCE* 

180REM 

IWOPRINT" GRADE FREQUENCY DISTRIBUTION (BAR GRAPH)" 

200PR1NT" ” 

810PR1NT 

220PRINT"QRADE"*" 1 S 10 IS 20 2S 30” 
230PRlNT"--—‘-"*"l+---+----+-“--*- — 

240 DIM FUSO>*P( 100) 

2S0READF 

260 1 FF-9999THEN290 
270LETN«N-^l 
280G0T02S0 
290 RESTORE 

292 IF N<«lSO THEN 300 

294 PRINT "RE-DIMENSION LINE 240* DE1.ETE LINES 292*294*296*" 

296 STOP 
30OFOR1-JTON 
310READF( 1 } 

320LETF(1>«S»1NT(F(1>/S-^*S> 

330NEXTI 
340F0R1«IT0N 
3S0F0RP-0T0 lOOSTEPS 
360!FP«F( 1 )THEN380 
370NEXTP 

330LETP(P>«P(P>-»1 

390NEXT1 

400PR1NT" 0"*"1” 

410F0RP-5T0100STEPS 

420PR1NTP*”!"; 

430 1 FP < P > >■ 1 THEN460 
440 PRINT " " 

450G0T0500 

460F0RL«1T0P(P> 

470PRINT"X"J 

480NEXTL 

490 PRINT " " 

SOONEXTP 

600REM BEGIN DATA ENTRIES HERE. TYPE - 600 DATA 1*2*3* ETC* 

701DATA9999 

999END 

7 
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Teacher Assi«;tance 
G RADE 



DESCRIPTION: 

This program is useful in determining the grade of an 
examination consisting of several examples. By inputing the number 
of incorrect answers, the corresponding grade in percent and 
the number of correct answers. 



NUMBER OP 


QUESTIONS 


IN THIS TEXT ^ 7 iS 


NUMBER 




NUMBER 


VRONQ 


GRADE 


R16HT 


0 


iOO 


1» 


i 


93 


14 


a 


87 


13 


3 


80 


la 


4 


73 


11 


5 


67 


io 


6 


60 


9 


7 


S3 


8 


0 


47 


7 


9 


40 


• 


10 


33 


5 


ii 


87 


4 


la 


ao 


3 


13 


13 


a 


14 


7 


1 


ss 


0 


0. 
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Teacher Assistance 
CUADE 



( 

lOOREM PEBEZ-COURT* WALT WHITMAN H.S.* REVISED 8/69 

105 REM REVISED BY C«LOSIK £'»86-70 

UOREM 

120REM THIS PROGRAM PRINTS OUT THE GRADES OF STUOEI<fS« IN PERCENTAGES# 
130REM NEXT TO THE NUMBER OF QUESTIONS MISSED ON A TEST AND THE 
140REH NUMBER ANSWERED CORRECTLY* WHEN THE QUESTION MARK APPEARS # TYPE 
150REM IN THE.NUHBER OF QUESTIONS ON THE TEST AND HIT THE RETURN KEY. 
160REM ‘ 

170PRINT"NUMBER OF QUESTIONS IN THIS TEST IS "I 



180INPUTA 

190PRINT 

800PRINT"NUMBEB NUMBER” 

210PRINT”WR0NG GRADE RIGHT” 

220PR1NT” ” 

230F0RX«0T0A 

240LETZ-Z«1 



250LET6«INT<< 100-<X4>I00/A) )4'.5) 

260IF6<0THEN330 

270PRINTX#Q#(A>X> 

280IFZ-STHEN300 

290NEXTX 

295 GO TO 330 

300PRINT” 

3I0LETZ-0 
320Q0T0890 
( 330BND 
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Teacher Assistance 
IT EMI 



DESCRIPTION: 

Thi^ program counts and prints the number of time- 
caestion- are missed on a test. 



600 DATA U2#3#4#5#e#3#5#6#7#4l#9#10#7#6#9#11^13#14#lS#10#13#15^10 
RUN 



ITEM ANALYSIS 



NUMBER OF QUESTIONS IN THE TEST I St 15 
QUESTION NUMBER OF TIMES MISSED 



1 

8 

3 

4 

5 

6 
7 
6 

9 

10 
11 
18 

13 

14 

15 



J 

1 

a 

i 

a 

a 

a 

3 

1 

0 

a 

1 

a 



READY 
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Teai'lier Assistance 

nr, Ml 



lOOREM PEREZ-COURT* WALT WHITMAN H.S.* REVISED 7/69 
105 REM REVISED BY C.LOSIK 0-26-70 
11 OREM 

120REM PROGRAM COUNTS AND PRINTS NUMBER OF TIMES OUESTIONS ARE MISSED ON 
130 REM A TEST* THE NUMBERS OF THE QUESTIONS MISSED ARE ENTERED ON DATA 
140REM LINES 600-700. UP TO 200 ITEMS MAY BE ENTERED IN ANY ORDER. 

150REM YOU MIGHT « FOR EXAMPLE* FEED IN THE NUMBERS OF THE UUESTIONS 
160REM MISSED BY ONE STUDENT* GO ON TO THE NEXT STUDENT* ETC** UNTIL ALL 
17UREM QUESTIONS MISSED BY A CLASS OR ALL CLASSES HAVE BEEN ENTERED. 

100 REM 
I0S REM 

190 PRINT •• •^"ITEM ANALYSIS” 

200 PRINT " ”*" ” 

205 PRINT 
2I0D1MP<200> 

220READX 

230 1 FX-9 9 99 THEN260 
240LETN-N+I 
250 Q0T0220 
260 RESTORE 

262 IF N<-200 THEN 260 

264 PRINT "RE-DlMENSlON THE ARRAY. DELETE LINES 262*264*266.” 

266 STOP 

260 PRINT "NUMBER OF QUESTIONS IN THE TEST IS”i 

2701NPUTQ 

272 PRINT 

274 PRINT "QUESTION”*" NUMBER OF TIMES HISSED” 

276 PRINT ” ”*” ” 

20OFOR1-ITON 

290READX 

300F0RP<>IT0Q 

3I01FP-XTHEN330 

320NEXTP 

330LETP<P)»P<P)<-1 

340 NEXT 1 

3S0F0RP-IT0Q 

360 PRINT ” "P*" ”*P<P) 

390NEXTP 

600 DATA 1*2*3* 4* 5*2* 3* 5*6*7*0*9*10* 7* 8*5*11*13*1 '4* 15*10*1 3* 15* 10 

701DATA9999 

999END 
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DESCRIPTION: 



Tqi^cher Assistance 
1TEM2 



This program will sum item analysis for up to five classes. 
Question numbers and number of students missing will each be printed 
out, as well as a validity based on between 30 and 70 percent of the 
students answering that question correctly. 



60^1 OAT A 

6H ). OAT A 3> 7 > 5> I 3> 1 > 1 3 

PAA-TA 3>2> l>2>9> I A, I I 

6-'13 OATA 4>6>3> l>6> 10> t l> I 

41 Ii\J 



I 5-69 



nUMULATI VF ITFtM ANAl.YSIS 



MIJM9FR OF OlIFSTIOMS IN TFST IS ---?15 

NUMHF* OF classes ENTERED IS ?4 

NUMREK OF STUDENTS TAKING TEST IS ?60 

* VALI0=BEILEEN 3M and 70 PER CENT ANSWERED QUESTION CORRECTLY 
nOFSl I )NS CLASSES 





1 


? 


3 


A 


b 


lUTAL 


f^ISSEfJ 


1 


1 


3 


0 


2 




6 






2 


S 


5 


3 


2 




1 b 








3 


2 


2. 


1 




b 






4J 


6 


4 


b 


3 




IR 


+ 


VALID 


S 


P 


p 




1 




S 






6 


1 


2 


2 


0 




s 






7 


S 


7 


s 


/I 




21 


♦ 


VALID 


u 


3 


S 


b 


4 




1 7 






9 


R 


t 0 


in 


6 




34 


♦ 


VAL I D 


1-! 


A 


4 


i 


3 




12 






1 I 


3 


3 


2 


1 
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IP 


6 


A 


9 


6 




2b 


♦ 


VALID 


\ 3 


10 


12 


1 A 
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Te&cher Assistance 



ITEM2 



100‘JFM nOLnn'i C.M.,» WALT whitman H.S.> revised 8/69 

12fln‘KM PROGRAM SUMS ITEM ANALYSES FOK UP TO 5 CLASSES. OUESTIUin 
13«PEM NUMBERS ^ND NUMBER OF STUDENTS MISSING EACH WiLL BE PRINTED OUT 
l/jr-lROvi AS WELL AS A VALIDITY BASED ON BETWEEN 30 AND 70 PERCEN’I OF THE 
1S0REM STUDENTS ANSWF.RING THAT QUESTION CORRECTLY. THIS MAY RE RY-PASSED 
160REM BY TYPING IN 999 FOR NUMBER OF STUDENTS TAKING TEST. 

17'^PEM 

|<VM 

DATA LINES 600-700 HAVE BEEN SET ASIDE FOK ENTRIES. A NUMBER 
MUST BE ENTERED FOR EACH QUESTION# IN SEQUENCE# FOR EACH CLASS. 
21^RFM IF NO STUDENT MISSED A PARTICULAR QUESTION# ENTER 0 (ZERO). IT 
«^euKEM WOULD BE WISE TO BEGIN ENTRIES OF A NEW CLASS ON A NEW DATA 
PMOPEM LINE FOR EASIER VERIFICATION SHOULD AN ERROR OCCUR. 

baorem 

^SODlMA(50)#B(50)#C(50)#D(50)#E(b0) 

260L£TS=0 ■ , 

PTMPRINr* CUMULATIVE ITEM ANALYSIS" 

;'!RWH*^INT" " 

B9QPRINT 

3O0PRINT”NUMBER OF QUESTIONS IN TEST IS ”) 

3I0INPUTQ 

SBOPRlN'r'NUMRER OF CLASSES ENTERED IS 

COQINPUTN 

3A0!FN<nHEN79Q 

350IP*N>5THEN790 

360HRIN r’NUMRER OF STUDENTS TAKING TEST IS 

370INPUTR 

3R0READK 

39OIFK=9999THENA20 

40OLETS=S+I 

AI0GOTO3H0 

.c^OKESTORE 

A3QIP*S=Q*NTHENA50 

AAWGOSUBBOS 

AS0LErn=o 

A60FORI=1TOO 

A70READACI) 

aronekti 

A90GOSUR760 

S00FORI=1TOQ 

SIOREADBCI) 

580NEKTI 

530GOSUB760 

5A0FORI=1TOO 

550READC(I) 

560NEXTI 

570GOSUR760 

5R0FORI=1TOQ 

590READDCI) ' 

592NEXTI 

^0R£M BEGIN YOUR DATA ENTRIES HERE. TYPE - 600 DATA 1#2#3# ETC. 

701DATA9999 

710GOSUB760 

720FORI=1TOQ 

730READECI) 

7A0NEXTI 

750GOSUB760 

760LETTls*7! + l 13 

770IFT1=NTHu:N850 

780RETURN 





790(^RINr'PROGRAM WILL ANALIZE FROM 1 TO 5 CLflOEES ONLY.*' Teacher Aesi«t 4 T 
R00GGTO330 - ITEM2 

raSPRiNT 

8I0print”There must be one number entered Fommmmi ouestion for each*' 

820PRINT"CLASS. REMEMBER# A ZERO IS ENTERED TF « »ttDENT MISSED " 

830PRINT*'A PARTICULAR QUESTION. CHECK YOUR DATA 

840GOTO1390 

BS0IFR=999THEN880 

860PRINT 

870PRTNT”* VALID=BETWEEN 30 AND 70 PER OENKT ANSWERED QUESTION CORRECTLY' 
8R0PRINT 

R90PRINT"QUESTIONS"#” CLASSIS*' 

900PR!NT"-* ••#•' •• 

910PRTNT" ”#•* I 2 3 A 5 TOTAL MISSED" 

920PRINT" "#" " 

930FORJ= J TOO 
9A0PRINTJ# 

950LETZ=A(J> 

960GOSUR1320 

970GOSUB1060 

980 1 FT> I NT ( ( . 7*R ) + . 5 ) THEN 1 020 
990IFT<INT( C.3*R)+. 5)THENI020 
1000PRINT"* VALID" 

I0I0GOTO1030 

1020PRTNT 

1030LETTS0 

1OA0NEXTJ 

I050GOTO1390 

1060LRTT=AC J) 

107«IFN>1THEN1130 

10R0FORI=1TOC5-N) 

n90PRlNT" 

1100NRKTT 

11I0PRINTTI 

11200070980 

1130LETZ=R(J) 

1140OnSUHl320 

1150LETT=T+3CJ) 

1160IFN>2THEN1 180 
11 7CG0T01 080 
1180LETZ=CC J) 

U90GOSUm320 

1200LETT=T+CCJ) 

I210TFN>3THEN1230 
I220GOTO1080 
1230LETZ=I)C J) 

12A0GOSU31320 
12b0LETT=T+DC J> 

1?60IFN>ATHRN1280 

J270GOTO10H0 

l2R0LRT7=n(J) 

1290GO.SUR1 320 
13«0LFTT=T+E(J) 

1310OOTO1 1 10 
1320PRTNTZI 
1330IFZ>99THEN1380 
1340IFZ>9THRN1 370 
1350IFZ>-1THEN1360 
1360PRINT" "1 
1370PKINT" "5 
I380RETURN 
1390END 

a CoBjrrlght 1971, Polytechnic Institute of Brooklyn 





DISCIPLINE ASSISTANCE 



SUBJECT LABORATORY DATA 
PROGRAM NAME STAT 



DESCRIPTION : 

This program treats class sets of laboratory data statistically. 
Aside from a table of experimental values with errors and percent 
errors, the teacher has a choice of experimental value distribution 
with bar graph, ranking by percent error, ranking by experimental 
value, mean deviation, and standard deviation. 



OBJECTIVES : 

A. To make percent error in experiments more meaningful. 

B. To increase competitive spirit in the laboratory due to ranking 
portion of statistical analysis. 

C. To provide a basis for further discussion of laboratory data and 
techniques. 



PRELIMINARY PREPARATION: 



This program is not generally for student use. 



DISCUSSION : 

Often a teacher is forced to work with some arbitrary percent 
error scale for marking purposes. With a statistical analysis of the 
laboratory results, a realistic scale can easily be developed. 

Also, it IS often desireable to discuss the class results but 
without a statistical analysis this usually turns out to be rather shallow. 
The analysis can now be obtained in the few minutes it takes the students 
to clean their equipment and put it away. 

It may be helpful to discuss a few of the ways in which the 
teacher can input data. First, the teacher may simply call up the program 
and then either he or his students can input the data as the experiments 
are finished. Next, with the teletype unit on local, a tape can be made 
and the analysis can be made at any convenient time. With tapes a 
teacher can do a statistical analysis of his classes separately or as a 
group as long as each student gets a different student number. 
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THIS PROnRAM WILL DO THE FOLLOWING! 

1. PRINT OUT A TARLF OF EXPERIMENTAL VALUES, ERRORS^ 
AND PERCENT ERRORS INCLUDING AVERAGES FOR ALL. 

P. GIVE YOU A CHOICE OF ALL OF THE FOLLOWING: 

CHOICE 1 - EXPERIMENTAL VALUE DISTRIBUTION 
INCLUDING A BAR GRAPH 
CHOICE 2 - RANKING BY PERCENT ERROR 
CHOICE 3 - RANKING BY EXPERIMENTAL VALUE 
CHOICE A - OTHER INFORMATION 
CHOICE 5 - ALL OF THE ABOVE CHOICES 
CHOICE 6 - ENDS PROGRAM 
INSTRUCTIONS 

i* LINES IBP TO 110 HAVE BEEN RESERVED FOR DATA. 

P. NOTE: THE FIRST DATA LINE MUST ALWAYS RE NO. 100 
AND LINE 101 MUST ALWAYS BE USED. 

3. there is room for data FOR A MAXIMUM OF 60 STUDENTS. 

4. INPUT SHOULD BE IN THE FORM; 

100 DATA STUDENT NO., VALUE, STUDENT NO., VALUE^ ETC.^ 

5. STUDENT NUMBERS MUST RANGE FROM 1-60. 

6. OLD DATA IS ERASED BY TNPUTING NEW DATA WITH THE SAME 
LINE NUMBERS DURING SUBSEOUENT RUNS. 

7. IF THE FIRST RUN REDUIRES DATA LINES tOO-110 AND THE 
SECOND RUN REQUIRES l-INES 100-109, LINE 110 IS TYPED 
TN TO ERASE OLD DATA IN THAT LINE. 

R. NEVER TYPE SAVE DURING THE RUN OF ANY PART OF THIS 
PROGRAM. 



TIME; 3 SECS. 



TAPE 

READY. 

too DATA t, 3 7.R,P,3R.6, 3,39. A,3 7.0, 5, 3B. 0, 6,40. 7, 41 . R j B, 37. 6, 9 j 

101 DATA 39. 5^ 1 0, 40. 1 ^ 1 1 , 39. R, 1 P, 39. 4, 1 3, 35.4, 14^33.9, ! 42.0, 1 6, 39. 6^ 

102 DATA 17,3R.7, 1R,37. 6, 19, 3R. 5,20, 40. 1 

RUN 

WAIT. 
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WHAT TS THE TOTAL NO. OF STUDENTS AND THE CALC. VALUE? 39. 
DATA LISTED RY STUDENT NUMRER 



STUDENT NO. 


VALUE 


ERROR 


PERCENT ERROR 


1 


37. R 


- 1.2 


, 3.0769R 


2 


3R. 6 


- . 4 


J.P25A4 


3 


39. 7 


.7 


1. 794B7 


4 


37.9 


-1.1 


2. R2051 


5 


3R 


- 1 


2.5641 


A 


40. 6 


1.6 


4. Iffl256 


• 7 


41. R 


2.R 


7. 1 79 49 


R 


37. 6 


-1.4 


3. 5B974 


9 


39. 5 


. 5 


I.2R2PI5 


10 


40. 1 


1. 1 


2.r2«^51 


1 1 


39. R 


. R 


2. 05! 2R 


12 


39. 4 


. 4 


I . 02564 


13 


35.4 


-3. 6 


9. 23077 


14 


33.9 


-5. 1 


13.J1769 


IS 


42 


3 


7.69231 


16 


39. 6 


. 6 


1 . 53R46 


17 


3R. 7 


-.3 


. 769231 


IR 


37.6 


-1.4 


3. 5R974 


19 


3R. 5 


-.5 


1.2R205 


^ 


40. 1 


1.1 


2. E2051 






THE ARITHMETIC MEAN CAVERAREl IS 
THE AVERAGE ERROR CABSOLUTE3 IS 
THE AVERAGE PERCENT ERROR IS 



3R. R3 
1 . A3 
3. AA6A7 



DO YOU DESIRE ADDITIONAL INFORMATION ? IF SO# TYPE 
TN THE NUMRER OF YOUR CHOICE.? 5 

FOR THE DISTRIBUTION# WHAT LOWER LIMIT# UPPER LIMIT# 
AND STEP DO YOU DESIRE ?35#A2.5#.5 



EXPERIMENTAL VALUE DISTRIBUTION 





FROM 

0 

35 

35.5 
3 A 

3A.5 

37 

37.5 
3R 

3R. 5 

39 

.39.5 

40 

40.5 

41 

41 . 5 

42 

42.5 



TO LESS THAN 
35 

35. 5 
3A 

3A.5 

37 

37.5 
3R 

3R.5 

39 

39. 5 

40 

40.5 

41 

41.5 

42 

42.5 

INFINITY 



NO. 



1 

1 

0 

0 
0 
0 
4 

1 

3 
1 

4 
2 
1 

0 

1 

1 

0 




BAR GRAPH 

I 



♦ 

* 

*♦ 

♦ 
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RANKTNR BY PERCENT ERROR 



RANK 



STUDENT NO. 



PERCENT ERROR 



1 


17 


.769231 


p 


12 


1.02564 


3 


P 


1.02564 


A 


9 


1. 2BP05 


5 


19 


1.PBP05- 


6 


16 


1. 53B46 


7 


3 


1.794B7 


P 


1 1 


2. 0512R 


9 


5 


2. 5641 




10 


2.82*^51 


1 1 


PO 


2.B2051 


IP 


4 


2.R2051 


13 


1 


3.07692 


14 


B 


3. 58974 


15 


IB 


3. 58974 


1ft 


ft 


4. 10256 


17 


7 


7. 17949 


IR 


15 


7* 69231 


19 


13 


9.23077 


20 


14 


13.0769 


ranking by experimental value 




RANK 


STUDENT NO. 


EXPER. VALUE 


1 


14 


33.9 


p 


13 


35.4 


3 


B 


37.6 


A 


IB 


• 37.6 


5 


1 


37.8 


ft 


4 


37*9 


7 


5 


38 


B 


19 


38.5 


9 


2 


38. 6 


10 


17- 


38.7 


1 1 


12 


39.4 


12 


9 


39. 5 


13 


16 


39.6 


14 


3 


39.7 


15 


1 1 


39.8 


1ft 


10 


40. 1 


17 


20 


40. 1 


IB 


6 


40. 6 


19 


7 


41.8 


20 


15 


42 


OTHER 


INFO RMATION 





o 

ERIC 



THE MEDIAN VALUE IS 38.7 
THE LOWEST VALUE IS 33.9 
THE HIGHEST VALUE IS 42 

THE MEAN DEVIATION CAVERAGE DEVIATION! IS 
THE STANDARD DEVIATION IS 1.8777A 
THIS CONCLUDES THE RUN. 
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lKEMH«D0rtFMANft'lB«b/l/69 

2 HEM STATISTICAL ANALYSIS OF LABOliATOHY DATA 

100 GO TO <750 

101 DATA U 

160D1MA(50}«H(S0>«Y(50>«W<50> 

170D1MQ(5U> I 

160LETY(0>-0 1 

190FOH1-1 TO 50 
200LETAC1 }aO 
210LETH(l>-0 
220LETY(1 >b0 
230LETW(1>b 0 
240LETU(l>-0 
250NEXT1 
260LETA9-0 
270LETASB0 
200LETHB0 
290LETV-0 
300LETC°0 

310 PHINT "WHAT IS THE TOTAL NO. OF STUDENTS AND THE CALC. VALUE"! 
3201NPUTB.K 
330 PHI NT 
340F0H1-1T0B 
350HEADH(1>.A(1> 

360NEXT1 

370 PHI NT "DATA LISTED BY STUDENt NUMBER" 

3«0 PRINT " 

390PH1NT 

400 PRINT" STUDENT NO. "."VALUE". "ERROR". "PERCENT ERROR" 

410 PRINT 
420F0R1b1T0B 
430LETXbA(1>-K 
440LETA8bA 8+ABS( 2> /B 
450LETP>P+A(1>/B 
460UETW(l ) b(ABS(E/K>>*100 
470LETA9bA9+W( 1 > /B 
480 PRINT R(1>.A(I).X.W(1> 

490 NEXT 1 
500PRINT 

510 PRINT "TH£', ARITHMETIC MEAN (AVERAGE) IS "!P 
520 PRINT "THE AVERAGE ERROR (ABSOLUTE) IS "!A8 

530 PRINT "THE AVERAGE PERCENT ERROR IS ’ "!A9 

540PR1NT 
550PH1NT 

560 PRINT " DO YOU DESIRE ADDITIONAL INFQRMATION 7 IF SO. TYPE" 

570 PRINT " IN THE NUMBER OF YOUR CHOICE."! 

5801NPUTN 
5901FNB2THEN1010 

19 
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600iFNB3THEN120U 

6101PN«4THEN1490 

6201FN-6THEN1730 

630PKINT 

640 PKINT "FOU THE 01 STKIBUTXONj WHAT LOWEH LIMIT* UPPEH LIMIT*'* 

650 PHI NT "AND STEP 00 YOU OESIHE "i 

6601NPUTE*F*6 

670PR1NT 

6H0PH1NT 

690 PHINT "EXPEKIMEHTAL VALUE 01 STHIBUTION" 

700 PRINT " — " 

710PR1NT 

720F0R1-IT0B 

730LETM-0 

740 1 FA Cl } >-FTHENB50 

7501 FAC 1 ) >«ETHEN770 

760LETYC0)»YC0)+l 

770F0RJ-ET0 C F- G ) STEPG 

7&0LETH>H-fl 

7901FAC 1 } >»JTHENblO 

800G0T0630 

£U01FAC1)>-C J-fG)THENB30 

820LETYCM)»YCM)+1 

&30NEXTU 

640G0T0B60 

B50LETYC 25 } -YC 25 } -^1 

660NEXT1 

670LETM-1 

880 PRINT "FRC»1"*"T0 LESS THAN"*" NO*"*" BAR GRAPH” 

881 PRINT 

882 PRINT 0*E*YC0)* 

890LETA5-YC0) 

900G0SUB2000 
910F0RJ»ET0CF-G)STEPG 
920 PRINT U*J+6*YCM)* 

930LETA5-Y(M) 

940GCSUB2000 

950LETM«M+l 

960NEXT J 

970 PRINT F*"1NF1N1TY"*YC25)* 

980LETA5-YC25} 

990GOSUB2000 

10001FN-lTHkN540 

lOlOPRlNT 

1020PR1NT 

1030 PRINT "RANKING BY PERCENT ERROR” 

1040 PRINT — -- " 

lOSOPRlNT 

1060 PRINT "RANK"*"STUOENT NO*"*"PERCENT ERROR" 

1070PR1NT 

1080F0RS«1T0B 

1090LETT-1E25 

20 
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UOOFOKIbITOB 

mOlFWa '/>»TTHENU40 

U20LETT»W<n 

U30LETV=I 

U40NEXT1 

U5UPH1NTS«V«U(V> 

U60LETW(V>»1E25 

1 1 70NEXTS 

U80PR1NT 

n901FN«2THEN540 

1200PH1NT 

1210PR1NT 

1220PR1NT 

1230 PRINT "RANKING BY EXPERIMENTAL VALUE" 

1240 PRINT " " 

1250PR1NT 

1260 PRINT" RANK"# "STUDENT NO."#"EXPER. VALUE" 

1261 PRINT 
1270F0RSb1T0B 
12S0LETT=1E25 
1290F0R1b1T0B 

1300 lFA(l>>aTTHEN 1330 
1310L£TT°A( I > 

1320LETV=I 

1330NEXT1 

1340PR1NTS#V#A(V> 

1350LETQ(S>eA(V> 

1360LETA(V>b1E2S 

1370NEXTS 

1380LETF°0 

1390LETG7«B/2 

1400F0RI°1T031 

14101FG7O1THEN1470 

1420NEXT1 

1430LET22-1NT(G7> 

1440LETE4bINT<G7+1) 

1450L£)TFb ( Q( 22 > ••■QC Z4 > > /2 

1460G0T01540 

1470LETF=<Q<G7)> 

14601FN-3THENS40 

1490PR1NT 

ISOOPRINT 

1510 PRINT "OTHER INFORMATION" 

1520 PRINT " " 

I530PRINT 

1540 PRINT "THE MEDIAN VALUE IS "IF 
1550 PRINT "THE LOWEST VALUE IS ";U(1> 

1560 PRINT "THE HIGHEST VALUE IS 

I570LETM-0 

I580LETP9»F 

I590F0RISIT0B 

I600LETP3»a<I>-P9 

16I0LETM>H+P3 

1620NEXTI . 
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1630LETM7SM/B 

1640 PRINT "THE MEAN DEVIATION CAVERAGE DEVIATION) 1S"H7 

1650LETMSU 

1660F0R1»1T0B 

16 70LETP3= < Q< I > -P9 > 1 8 

1680LETM»M+P3 

1690NEXT1 

1 700 LETM 7 = SQR< M/B > 

1710 PRINT "THE STANDARD DEVIATION IS"M7 
17801FNs4THEN540 

1730 PRINT " THIS CONCLUDES THE RUN." 

1740 STOP 

1750 PRINT" THIS PROGRAM WILL DO THE FOLLOWING!" 

1. PRINT OUT A TABLE OF EXPERIMENTAL VALUES# ERRORS#" 
AND PERCENT ERRORS INCLUDING AVERAGES FOR ALL." 

8. GIVE YOU A CHOICE OF ALL OF THE FOLLOVlNGl" 



LINES 

NOTES 

THERE 

INPUT 



1760 PRINT" 

1770 PRINT" 

1780 PRINT" 

1790 PRINT" 

1791 PRINT" 

1800 PRINT" 

1810 PRINT" 

1880 PRINT" 

1830 PRINT" 

1840 PRINT" 

1850 PRINT" 

1860 PRINT" 1. 

1870 PRINT" 8. 

1871 PRINT" 

1880 PRINT" 3. 
1890 PRINT" 4. 
1900 PRINT" 

1910 PRINT" 5. 
1980 PRINT" 6. 
1930 PRINT" 

1940 PRINT" 7. 
1950 PRINT" 

1960 PRINT" 

1970 PRINT" 8. 
1980 PRINT" 
1990PRINT 

199 5 STOP 

1996F0R Isl TO A5 

1997PRINT"*"; 

1998NEXT1 

1999PR1NT 

8000RETURN 

8001 END 



CHOICE 1 - EXPERIMENTAL VALUE DISTRIBUTION" 
INCLUDING A BAR GRAPH" 

CHOICE 8 - HANKING BY PERCENT ERROR" 

CHOICE 3 - RANKING BY EXPERIMENTAL VALUE" 
CHOICE 4 - OTHER INFORMATION" 

CHOICE 5 - ALL OF THE ABOVE CHOICES" 

CHOICE 6 - ENOS PROGRAM" 

INSTRUCTIONS" 

100 TO 159 HAVE BEEN RESERVED FOR DATA." 
the first data line must always BE NO. 100" 

AND Ll-NE 101 MUST ALWAYS ‘BE USED." 

IS ROOM FOR DATA FOR A MAXIMUM OF 50 STUDENTS." 
SHOULD BE IN THE FORMS" 

100 DATA STUDENT NO.# VALUE# STUDENT NO.# VALUE# ETC.#’ 
STUDENT NUMBERS MUST RANGE FHOM 1-50." 

OLD DATA IS ERASED BY INPUT I NG NEW DATA WITH THE SAME" 
LINE NUMBERS DURING SUBSEQUENT RUNS." 

IF THE FIRST RUN REQUIRES DATA LINES 100-110 AND THE" 
SECOND RUN REQUIRES LINES 100-109# LINE 110 IS TYPED" 
IN TO ERASE OLD DATA IN THAT LINE." ' 

NEVER type save DURING THE RUN OF ANY PART 0F THIS" 
PROGRAM." 
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DESCRIPTION: 

Tills program will find the mean, median, and deviation of a 
set of numbers. 



MEDIAN* AND DEVIATION OF A SET OF NUMBERS* 

ENTER YOUR NUMBERS IN DATA STATEMENTS ON LINES 
1000 - 8000. FOR EXAtJPLE* YOU MIGHT TYPE t 

1000 DATA I«a«3*4 ETC. (YOUR DATA GOES HEREI) 

WEN YOUR DATA HAS BEEN ENTERED* TYPE > 

I GO TO 300 
RUN 

THEN RELAX WHILE THE MACHINE GRINDS OUT THE ANSWERS. 

IP AN *OUT OF DATA' APPEARS* ADJUST LINE 895* 



READY 




1000 DATA 844*138*118*8*198*10*314*160*18*38 

1 GO TO 300 

Rim 



THESE ARE YOUR NUMBERS r 

844 188 118 a 198 10 314 160 18 38 

THESE ARE YOUR NUMBERS (HIPEST TO LOWEST! t 
314 844 198 188 160 118 38 18 10 8 



NUMBER OF VALUES IS 10 

SUM OP THE VALUES IS 1878 

THE MEAN VALUE IS 187.8 

THE MEDIAN VALUE IS 136 

THE standard deviation IS 808.8797 



FOR ANOTHER RUN* BE»ENTER DATA ON LINES 
1000 - 8000* TAKING CARE TO ELIMINATE OLD DATA 
BY TYPING THOSE LINE NUMBERS WHICH YOU DO NOT USB AGAINI 
THEN TYPE 'RUN*. 



BEADY 
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100 KEH CHARLES M. L0S1K« BKLYN POLY* MEAN-MEDIAN-DEVIATION 
110 REM C7-«6 IN FORTRAN II> i (8*86-70 IN BASIC) 

180 REM YOU PUT YOUR NUUBBRS IN DATA STATEMENTS AND 

130 REM YOU GET WKA1' YOU PAY FOR* 

lAO PRINT " "«"MEAN« HEDIANj AND DEVIATION OF A SET OF NUMBERS." 
ISO PRINT 

160 PRINT " ENTER YOUR NUMBERS IN DATA STATEMENTS ON LINES'* 

170 PRINT " 1000 - 8000. FOR EXAMPLE* YOU MIGHT TYPE i" 

171 PRINT 

178 PRINT " "*”1000 DATA 1«8«3«A ETC* (YOUR DATA GOES HEREI >** 

173 PRINT 

174 PRINT ” WHEN YOUR DATA HAS BEEN ENTERED* TYPE t** 

180 PRINT 

190 PRINT " ■'*'•1 GO TO 300" 

800 PRINT " •*»**RUN" 

810 PRINT 

880 PRINT " THEN RELAX WILE THE MACHINE GRINDS OUT THE ANSWERS*" 

888 PRINT " IF AM 'OUT OF EATA’ APPEARS* AOUUST LINE 895*" 

830 STOP 

840 REM A(l) ARE THE NUMBERS* S IS THEIR SIM* 

850 REM S8 IS THE SUM OF THEIR SGUARES* 

860 REM 

870 REM HARNIHGI DATA ON LINES 999 AND 8001 MAY NOT BE 
830 REN USED AS ONE OF YOUR NUMBERS* 

890 REM IF THEY ARE* SIMPLY CHANGE 999 AND 8001* 

895 DIM A(IOO) 

300 PRINT 

303 PRINT ** THESE ARE YOUR NUMBERS t” 

305 LET i - 1 



310 READ E 

315 LET S - 0 

316 LET S8 - 0 
380 READ A(l> 

330 IF E - Ad) THEN 370 
340 PRINT Ad) ) 

315 LET S - S + Ad) 

347 LET S8 - S8 ♦ Ad) * Ad) 

350 LET 1 - 1 > 1 

360 GO TO 380 

370 LET N - 1 - 1 

380 PRINT 
390 PRINT 

399 RIM ***** BUBBLE SORT ***** 

400 PRINT " these ARB YOUR NUMBERS (HIGHEST TO LOWEST) I" 

405 FOR 1 " 1 TO N - 1 

410 FOR U - I ♦ 1 TO N 

480 IF Ad) * A(U) THEN 460 
430 LET T * Ad) 

440 LET Ad) - A(0) 

450 LET A(U) - T 
460 NEXT J 
485 PRINT Ad) ) 

470 NEXT 1 
475 PRINT A(N) 

480 PRINT 
490 -PRINT 

500 PRINT " NUMBER OF VALUES IS" i N 
510 PRINT " SUM OF THE VALUES IS" ) S 
580 PRINT " THE MEAN VALUE IS" J S / N 
530 PRINT ” THE MEDIAN VALUE IS" ) 

540 IF N / 8 IMT ( N / 8 ) THEN 570 
550 PRINT ( A(H/8) v A((N*B)P8) ) / 8 



560 GO TO 600 ' 

570 PRINT A((M*l)/8) 

600 PRINT " THE STANDARD OZVIATIOH IS" J SOB (N*S8*S*$)/N 
610 PRINT 
6«0 PRIOT 




630 PRINT " FOR ANOTHER RUN* RE-ENTER DATA ON LINES" 

640 PRINT " 1000 - 8000* TAXING CARE TO ELIMINATE OLD DATA" 

648^PRINT "BY TYPING THOSE LINE NUHBERS PRICH YOU DO NOT USE AGAINI" 

*RUN*t" 

■*099SDATA^999 ^ 

■.-.GOOV. ilAtA#999 ' 

■■aOlO ^El»'" ■ 
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